Remove unnecessary pattern
commit28fa7185539189faaffd52dc545aa3874a7263ed
authorGary Burgess <gary.burgess@gmail.com>
dateFri 21 Feb 2014, 12:54 (13 years ago)
parent8e5e64d
src/Language/PureScript.hs+1−1
@@ -69,7 +69,7 @@ compile opts ms = do
6969 let js = mapMaybe (flip (moduleToJs opts) env) elim
7070 let exts = intercalate "\n" . map (flip moduleToPs env) $ elim
7171 js' <- case mainModuleIdent of
72− Just mmi@(ModuleName pns) -> do
72+ Just mmi -> do
7373 when ((mmi, Ident "main") `M.notMember` (names env)) $
7474 Left $ (show mmi) ++ ".main is undefined"
7575 return $ js ++ [JSApp (JSAccessor "main" (JSAccessor (moduleNameToJs mmi) (JSVar "_ps"))) []]