core driver

2024-02-01 15:24:16 -07:00
parent ff5a5af9bc
commit 77f2f900d8
6 changed files with 42 additions and 19 deletions
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -107,11 +107,3 @@ driver = view rlpcLanguage >>= \case
    LanguageCore -> CoreDriver.driver
    LanguageRlp  -> RlpDriver.driver

-forFiles_ :: (Monad m)
-          => (RLPCOptions -> FilePath -> RLPCT m a)
-          -> RLPCT m ()
-forFiles_ k = do
-    fs <- view rlpcInputFiles
-    o <- ask
-    forM_ fs (k o)
-