Drop formatting dependency #300

Author: snoyberg

src/Stack/GhcPkg.hs

@@ -28,8 +28,6 @@ import           Data.Streaming.Process
 import qualified Data.Text as T
 import qualified Data.Text.Encoding as T
 import           Data.Time.Clock
-import           Formatting
-import           Formatting.Time
 import           Path (Path, Abs, Dir, toFilePath, parent, parseAbsDir)
 import           Prelude hiding (FilePath)
 import           Stack.Build.Types (StackBuildException (Couldn'tFindPkgId))
@@ -70,10 +68,12 @@ ghcPkg menv pkgDbs args = do
                 go
             Right _ -> return eres
     end <- liftIO getCurrentTime
-    $logDebug $
-        sformat ("ghc-pkg (" % seconds 3 % "s) with args " % build)
-                (diffUTCTime end start)
-                (show args')
+    $logDebug $ T.concat
+        [ "ghc-pkg ("
+        , T.pack $ show $ diffUTCTime end start
+        , "s) with args "
+        , T.pack $ show args'
+        ]
     return r
   where
     go = tryProcessStdout Nothing menv "ghc-pkg" args'

src/Stack/PackageDump.hs

@@ -39,12 +39,11 @@ import qualified Data.Map as Map
 import           Data.Maybe (catMaybes)
 
 import qualified Data.Set as Set
+import qualified Data.Text as T
 
 
 import           Data.Time.Clock
 import           Data.Typeable (Typeable)
-import           Formatting
-import           Formatting.Time
 import           Path
 import           Prelude -- Fix AMP warning
 import           Stack.GhcPkg
@@ -67,10 +66,12 @@ ghcPkgDump menv mpkgDb sink = do
     start <- liftIO getCurrentTime
     a <- sinkProcessStdout Nothing menv "ghc-pkg" args sink
     end <- liftIO getCurrentTime
-    $logDebug $
-        sformat ("ghc-pkg (" % seconds 3 % "s) with args " % build)
-                (diffUTCTime end start)
-                (show args)
+    $logDebug $ T.concat
+        [ "ghc-pkg ("
+        , T.pack $ show $ diffUTCTime end start
+        , "s) with args "
+        , T.pack $ show args
+        ]
     return a
   where
     args = concat

stack.cabal

@@ -128,7 +128,6 @@ library
                    , yaml >= 0.8.10.1
                    , zlib >= 0.5.4.2
                    , deepseq
-                   , formatting
   if !os(windows)
     build-depends:   unix >= 2.7.0.1
   default-language:    Haskell2010