ENH don't use putstrln for printing packages

bin/xmobar.hs

@@ -66,10 +66,10 @@ evalConfig db = do
 
 printDeps :: FIO ()
 printDeps = withDBus_ $ \db ->
-  mapM_ (liftIO . putStrLn . T.unpack) $
+  mapM_ logInfo $
+    fmap showFulfillment $
       sort $
         nub $
-        fmap showFulfillment $
           concatMap dumpFeature $
             allFeatures db
 

bin/xmonad.hs

@@ -217,7 +217,7 @@ withXmobar = bracket startXmobar cleanup
 printDeps :: FIO ()
 printDeps = withDBus_ $ \db -> do
   (i, f, d) <- allFeatures db
-  mapM_ (liftIO . putStrLn . T.unpack) $
+  mapM_ logInfo $
     fmap showFulfillment $
       sort $
         nub $

lib/Data/Internal/Dependency.hs

@@ -186,8 +186,9 @@ logMsg (FMsg fn n (Msg ll m)) = do
 --------------------------------------------------------------------------------
 -- Package status
 
-showFulfillment :: Fulfillment -> T.Text
-showFulfillment (Package t n) = T.concat [T.pack $ show t, "\t", n]
+showFulfillment :: Fulfillment -> Utf8Builder
+showFulfillment (Package t n) =
+  displayShow t <> "\t" <> Utf8Builder (encodeUtf8Builder n)
 
 dumpFeature :: Feature a -> [Fulfillment]
 dumpFeature = either dumpSometimes dumpAlways