git.iko.soy/elk
on master help sign in
Remove testing via unsafePerformIO
cf2357fevancz
compiler/Model/Libraries.hs+1−6
compare with master
unifiedsplit
@@ -6,13 +6,8 @@ import Data.List (inits)
6import Text.JSON
6import Text.JSON
7import LoadLibraries (docs)
7import LoadLibraries (docs)
8
8
9−import System.IO.Unsafe
10−
11addPrelude :: Module -> Module
9addPrelude :: Module -> Module
12−addPrelude (Module name exs ims stmts) =
10+addPrelude (Module name exs ims stmts) = Module name exs (customIms ++ ims) stmts
13− unsafePerformIO $ do
14− mapM print $ customIms ++ ims
15− return $ Module name exs (customIms ++ ims) stmts
16 where customIms = concatMap addModule prelude
11 where customIms = concatMap addModule prelude
17
12
18 addModule (n, method) = case lookup n ims of
13 addModule (n, method) = case lookup n ims of