Commit cdde1a8068ab4824383021d288c0669d64429a1e
Parent: 09ddaafb5819a09201eb7cc90dd244fe66ac1a0a
Author: mcol <mcol@posteo.net>
Date: 2021-08-22 00:49:31 +0100
Committer: mcol <mcol@posteo.net>
Committed: 2021-08-22 00:49:31 +0100

Flush output after printing

src/Icons.hs Modified

@@ -10,6 +10,7 @@
 import Data.Text (pack)
 import System.Directory (doesDirectoryExist, listDirectory, getHomeDirectory)
 import System.Environment (lookupEnv)
+import System.IO (hFlush, stdout)
 
 import Data.GI.Base
 import qualified Data.GI.Base.GType as GType
@@ -80,4 +81,4 @@
     maybeValue <- (Gtk.fromGValue gvalue :: IO (Maybe String))
     case maybeValue of
         Nothing -> return ()
-        Just value -> putStrLn $ root <> "/" <> value
+        Just value -> putStrLn (root <> "/" <> value) >> hFlush stdout