@@ -6,13 +6,8 @@ import Data.List (inits)
66import Text.JSON
77import LoadLibraries (docs)
88
9−import System.IO.Unsafe
10−
119addPrelude :: Module -> Module
12−addPrelude (Module name exs ims stmts) =
13− unsafePerformIO $ do
14− mapM print $ customIms ++ ims
15− return $ Module name exs (customIms ++ ims) stmts
10+addPrelude (Module name exs ims stmts) = Module name exs (customIms ++ ims) stmts
1611 where customIms = concatMap addModule prelude
1712
1813 addModule (n, method) = case lookup n ims of