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

extractProgram

Browse Source
This commit is contained in:
crumbtoo
2023-11-29 11:11:16 -07:00
parent febc5a0252
commit f642faed71
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/Core/Syntax.hs
View File

@@ -18,6 +18,7 @@ module Core.Syntax
, rhssOf , rhssOf
, isAtomic , isAtomic
, insertModule , insertModule
, extractProgram
) )
where where
---------------------------------------------------------------------------------- ----------------------------------------------------------------------------------
@@ -146,3 +147,6 @@ isAtomic _ = False
insertModule :: Module -> Program -> Program insertModule :: Module -> Program -> Program
insertModule (Module _ m) p = p <> m insertModule (Module _ m) p = p <> m
extractProgram :: Module -> Program
extractProgram (Module _ p) = p