From 30eef61f0a400d6b9ec77721620e13b8132a9c2c Mon Sep 17 00:00:00 2001 From: krangelov Date: Fri, 20 Sep 2019 16:15:28 +0200 Subject: more dead code --- src/compiler/GF/CompileInParallel.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/compiler/GF/CompileInParallel.hs') diff --git a/src/compiler/GF/CompileInParallel.hs b/src/compiler/GF/CompileInParallel.hs index fecce0a68..68ac7aa4a 100644 --- a/src/compiler/GF/CompileInParallel.hs +++ b/src/compiler/GF/CompileInParallel.hs @@ -83,7 +83,7 @@ batchCompile1 lib_dir (opts,filepaths) = let rel = relativeTo lib_dir cwd prelude_dir = lib_dir"prelude" gfoDir = flag optGFODir opts - maybe done (D.createDirectoryIfMissing True) gfoDir + maybe (return ()) (D.createDirectoryIfMissing True) gfoDir {- liftIO $ writeFile (maybe "" id gfoDir"paths") (unlines . map (unwords . map rel) . nub $ map snd filepaths) @@ -241,14 +241,14 @@ instance (Functor m,Monad m) => Applicative (CollectOutput m) where (<*>) = ap instance Monad m => Monad (CollectOutput m) where - return x = CO (return (done,x)) + return x = CO (return (return (),x)) CO m >>= f = CO $ do (o1,x) <- m let CO m2 = f x (o2,y) <- m2 return (o1>>o2,y) instance MonadIO m => MonadIO (CollectOutput m) where liftIO io = CO $ do x <- liftIO io - return (done,x) + return (return (),x) instance Output m => Output (CollectOutput m) where ePutStr s = CO (return (ePutStr s,())) -- cgit v1.2.3