stackage fixes

chart-unit.cabal

@@ -3,7 +3,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           chart-unit
-version:        0.5.4
+version:        0.5.5.0
 synopsis:       Native haskell charts.
 description:    .
                 <<https://tonyday567.github.io/other/mainExample.svg>>
@@ -112,7 +112,8 @@ library
     linear,
     numhask >=0.0.5 && <1,
     numhask-range >=0.0.3 && <1,
-    palette
+    palette,
+    scientific
   default-language: Haskell2010
   default-extensions: DeriveGeneric DeriveTraversable FlexibleContexts FlexibleInstances InstanceSigs MultiParamTypeClasses NegativeLiterals NoImplicitPrelude OverloadedStrings PatternSynonyms RankNTypes TypeFamilies UnicodeSyntax
 

package.yaml

@@ -1,5 +1,5 @@
 name: chart-unit
-version: '0.5.4'
+version: '0.5.5.0'
 synopsis: Native haskell charts.
 description: ! '
 
@@ -81,6 +81,7 @@ library:
   - numhask >=0.0.5 && <1
   - numhask-range >=0.0.3 && <1
   - palette
+  - scientific
 executables:
   chart-source-examples:
     main: sourceExamples.hs

src/Chart/Hud.hs

@@ -42,6 +42,7 @@ import Chart.Text
 import qualified Control.Foldl as L
 import Data.List (nub)
 import Data.Ord (max)
+import Data.Scientific
 import Diagrams.Prelude
        hiding (Color, D, (*.), (<>), project, width, zero, (<>))
 import qualified Diagrams.TwoD.Size as D
@@ -308,12 +309,13 @@ data TickStyle
 -- | Provide formatted text for a list of numbers so that they are just distinguished.  'precision 2 ticks' means give the tick labels as much precision as is needed for them to be distinguished, but with at least 2 significant figues.
 precision :: Int -> [Double] -> [Text]
 precision n0 xs
-  | foldr max 0 xs < 0.01 = precLoop Formatting.expt n0 xs
-  | foldr max 0 xs > 100000 = precLoop Formatting.expt n0 xs
+  | foldr max 0 xs < 0.01 = precLoop expt n0 (fromFloatDigits <$> xs)
+  | foldr max 0 xs > 100000 = precLoop expt n0 (fromFloatDigits <$> xs)
   | foldr max 0 xs > 1000 =
     precLoopInt (const Formatting.commas) n0 (floor <$> xs)
   | otherwise = precLoop fixed n0 xs
   where
+    expt x = scifmt Exponent (Just x)
     precLoop f n xs' =
       let s = sformat (f n) <$> xs'
       in if s == nub s

stack.yaml

@@ -1,4 +1,4 @@
-resolver: nightly-2017-11-22
+resolver: nightly-2017-12-29
 
 packages:
   - .