@@ -36,7 +36,8 @@ import Language.PureScript.Environment
36moduleToPs :: Module -> Environment -> String
36moduleToPs :: Module -> Environment -> String
37moduleToPs (Module _ _ Nothing) _ = error "Module exports were not elaborated in moduleToPs"
37moduleToPs (Module _ _ Nothing) _ = error "Module exports were not elaborated in moduleToPs"
38moduleToPs (Module moduleName ds (Just exts)) env = intercalate "\n" . execWriter $ do
38moduleToPs (Module moduleName ds (Just exts)) env = intercalate "\n" . execWriter $ do
39− tell ["module " ++ runModuleName moduleName ++ " where"]
39+ tell [ "module " ++ runModuleName moduleName ++ " where"
40+ , "import Prelude ()" ]
40 mapM_ fixityToPs ds
41 mapM_ fixityToPs ds
41 mapM_ exportToPs exts
42 mapM_ exportToPs exts