module Synth.ImGcMain where
import qualified Streaming.Prelude as S
import qualified System.Environment as Environment
import qualified Synth.ImGc as ImGc
import Global
main :: IO ()
main :: IO ()
main = do
[String]
dirs <- IO [String]
Environment.getArgs
forall (m :: * -> *) a x r.
Monad m =>
(a -> m x) -> Stream (Of a) m r -> m r
S.mapM_ (forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ String -> IO ()
putStrLn) forall a b. (a -> b) -> a -> b
$ forall b a. Monoid b => (a -> b) -> [a] -> b
mconcatMap String -> Stream (Of (Set String)) IO ()
ImGc.find [String]
dirs