monky 2.2.1.0 → 2.2.1.1

raw patch · 4 files changed

+11/−4 lines, 4 filesdep +scientific

Dependencies added: scientific

Files

Monky/Examples/Utility.hs +2/−1
Monky/MPD.hs +6/−1
Monky/Network/Static.hs +1/−0
monky.cabal +2/−2

Monky/Examples/Utility.hs view

@@ -40,6 +40,7 @@  import Control.Monad (unless) import Control.Concurrent (threadWaitRead)+import Data.Scientific (fromFloatDigits, FPFormat(Exponent)) import System.Posix.Types (Fd) import Monky.Modules @@ -84,7 +85,7 @@   | rate < fromIntegral (gf * 10  ) = sformat ((left 4 ' ' %. fixed 2) % stext) gv gs   | rate < fromIntegral (gf * 100 ) = sformat ((left 4 ' ' %. fixed 1) % stext) gv gs   | rate < fromIntegral (gf * 1000) = sformat ((left 4 ' ' %. fixed 0) % stext) gv gs-  | otherwise = sformat ((left 4 ' ' %. expt 1) % stext) gv gs+  | otherwise                       = sformat ((left 4 ' ' %. scifmt Exponent Nothing) % stext) (fromFloatDigits gv) gs   where     kf = 1  * step     mf = kf * step

Monky/MPD.hs view

@@ -217,7 +217,12 @@  -- |Get the raw 'Fd' from the 'MPDSocket' for eventing api getMPDFd :: MPDSocket -> IO Fd-getMPDFd (MPDSocket s) = return . Fd $fdSocket s+getMPDFd (MPDSocket s) =+#if MIN_VERSION_network(3,0,0)+  Fd <$> unsafeFdSocket s+#else+  pure . Fd $ fdSocket s+#endif   recvMessage :: MPDSock -> ExceptT String IO [Text]

Monky/Network/Static.hs view

@@ -56,6 +56,7 @@     "down" -> Down     "unknown" -> Unknown     "dormant" -> Dormant+    "lowerlayerdown" -> Down     _ -> error ("Don't know the network state \"" ++ state ++ "\" yet")

monky.cabal view

@@ -10,7 +10,7 @@ -- PVP summary:      +-+------- breaking API changes --                   | | +----- non-breaking API additions --                   | | | +--- code changes with no API change-version:             2.2.1.0+version:             2.2.1.1  -- The ABOVE LINE has to stay AS IS (except for version changes) for the -- template to work properly@@ -158,7 +158,7 @@   build-depends:       text, unix, network, mtl, transformers   build-depends:       template-haskell, containers, stm, statvfs   build-depends:       bytestring, netlink >= 1.1, cereal, formatting, composition-  build-depends:       env-locale >= 1.0.0.1+  build-depends:       env-locale >= 1.0.0.1, scientific    -- force double-conversion version for old ghc/library?   if impl(ghc < 7.8)