pairs :3

2023-11-23 00:56:47 -07:00
parent ac6c0b7457
commit d84fe56fbb
5 changed files with 33 additions and 24 deletions
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -55,7 +55,7 @@ whenView l m = view l >>= \a -> when a m
 dumpEval :: RLPCIO () ()
 dumpEval = whenView rlpcDumpEval do
    fs <- view rlpcInputFiles
-    forM_ fs $ \f -> liftIO (readFile f) >>= doProg 
+    forM_ fs $ \f -> liftIO (readFile f) >>= doProg

    where
        doProg :: String -> RLPCIO () ()