things

2024-02-22 14:05:29 -07:00
parent 45a6609152
commit 4a120f9899
5 changed files with 48 additions and 13 deletions
--- a/src/Core/Utils.hs
+++ b/src/Core/Utils.hs
@@ -2,8 +2,6 @@ module Core.Utils
    ( programRhss
    , programGlobals
    , isAtomic
-    -- , insertModule
-    , extractProgram
    , freeVariables
    )
    where
@@ -30,15 +28,6 @@ isAtomic _        = False

 ----------------------------------------------------------------------------------

-- TODO: export list awareness
-- insertModule :: Module b -> Program b -> Program b
-- insertModule (Module _ p) = programScDefs %~ (<>m)
-
-extractProgram :: Module b -> Program b
-extractProgram (Module _ p) = p
-
----------------------------------------------------------------------------------
-
 freeVariables :: Expr' -> Set Name
 freeVariables = cata go
    where