begin hm visualiser

2024-03-14 16:26:51 -06:00
parent 623acb3454
commit c72d93216a
11 changed files with 155 additions and 121 deletions
--- a/app/CoreDriver.hs
+++ b/app/CoreDriver.hs
@@ -15,10 +15,11 @@ import GM

 driver :: RLPCIO ()
 driver = forFiles_ $ \f ->
-    withSource f (lexCoreR >=> parseCoreProgR >=> evalProgR)
+    withSource f (lexCoreR >=> parseCoreProgR >=> undefined >=> evalProgR)

 driverSource :: T.Text -> RLPCIO ()
-driverSource = lexCoreR >=> parseCoreProgR >=> evalProgR >=> printRes
+driverSource = lexCoreR >=> parseCoreProgR
+            >=> undefined >=> evalProgR >=> printRes
    where
        printRes = liftIO . print . view _1