@@ -69,7 +69,7 @@ compile opts ms = do
69 let js = mapMaybe (flip (moduleToJs opts) env) elim
69 let js = mapMaybe (flip (moduleToJs opts) env) elim
70 let exts = intercalate "\n" . map (flip moduleToPs env) $ elim
70 let exts = intercalate "\n" . map (flip moduleToPs env) $ elim
71 js' <- case mainModuleIdent of
71 js' <- case mainModuleIdent of
72− Just mmi@(ModuleName pns) -> do
72+ Just mmi -> do
73 when ((mmi, Ident "main") `M.notMember` (names env)) $
73 when ((mmi, Ident "main") `M.notMember` (names env)) $
74 Left $ (show mmi) ++ ".main is undefined"
74 Left $ (show mmi) ++ ".main is undefined"
75 return $ js ++ [JSApp (JSAccessor "main" (JSAccessor (moduleNameToJs mmi) (JSVar "_ps"))) []]
75 return $ js ++ [JSApp (JSAccessor "main" (JSAccessor (moduleNameToJs mmi) (JSVar "_ps"))) []]