hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge pull request #286 from cabrera/fix_ghc_783

Browse Source 
Fix GHC 7.8.3: MatchGroup now has 4 args
This commit is contained in:
Kazu Yamamoto 2014-07-11 17:39:46 +09:00
commit e378913466
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Language/Haskell/GhcMod/Gap.hs
View File

@ -280,8 +280,10 @@ class HasType a where
instance HasType (LHsBind Id) where instance HasType (LHsBind Id) where
#if __GLASGOW_HASKELL__ >= 708 #if __GLASGOW_HASKELL__ >= 708
getType _ (L spn FunBind{fun_matches = MG _ in_tys out_typ}) = return $ Just (spn, typ) getType _ (L spn FunBind{fun_matches = m}) = return $ Just (spn, typ)
where typ = mkFunTys in_tys out_typ where in_tys = mg_arg_tys m
out_typ = mg_res_ty m
typ = mkFunTys in_tys out_typ
#else #else
getType _ (L spn FunBind{fun_matches = MatchGroup _ typ}) = return $ Just (spn, typ) getType _ (L spn FunBind{fun_matches = MatchGroup _ typ}) = return $ Just (spn, typ)
#endif #endif