updated Prelude.hs to use new, simpler defineModuleFromFileWithFns fu…

…nction
GaloisInc · May 10, 2018 · 3668afa · 3668afa
1 parent 7832110
commit 3668afa
Showing 1 changed file with 2 additions and 6 deletions.
diff --git a/src/Verifier/SAW/Prelude.hs b/src/Verifier/SAW/Prelude.hs
@@ -20,13 +20,9 @@ import Verifier.SAW.ParserUtils
 import Verifier.SAW.Prelude.Constants
 import Verifier.SAW.SharedTerm
 
-$(runDecWriter $ do
-    prelude <- defineModuleFromFile [] "preludeModule" "prelude/Prelude.sawcore"
-    declareSharedModuleFns "Prelude" (decVal prelude)
- )
+$(defineModuleFromFileWithFns "preludeModule" "prelude/Prelude.sawcore")
 
 scEq :: SharedContext -> Term -> Term -> IO Term
 scEq sc x y = do
   xty <- scTypeOf sc x
-  eqOp <- scApplyPrelude_eq sc
-  eqOp xty x y
+  scApplyPrelude_eq sc xty x y