msyds/rlp
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases 2 Wiki Activity

let-polymorphism working i think???

Browse Source
This commit is contained in:
crumbtoo
2024-03-26 09:23:38 -06:00
parent 93ef870e56
commit 0b4c5e5669
8 changed files with 106 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
app/CoreDriver.hs
View File

@@ -10,16 +10,17 @@ import Control.Lens.Combinators
import Core.Lex
import Core.Parse
import Core.SystemF
import GM
--------------------------------------------------------------------------------
driver :: RLPCIO ()
driver = forFiles_ $ \f ->
withSource f (lexCoreR >=> parseCoreProgR >=> undefined >=> evalProgR)
withSource f (lexCoreR >=> parseCoreProgR >=> lintCoreProgR >=> evalProgR)
driverSource :: T.Text -> RLPCIO ()
driverSource = lexCoreR >=> parseCoreProgR
>=> undefined >=> evalProgR >=> printRes
>=> lintCoreProgR >=> evalProgR >=> printRes
where
printRes = liftIO . print . view _1