some GHC 8.0.1 fixes

This commit is contained in:
Daniel Gröber
2016-05-18 17:58:34 +02:00
parent 66c6379945
commit 22318105ae
3 changed files with 9 additions and 3 deletions

View File

@@ -134,7 +134,7 @@ getSignature modSum lineNo colNo = do
Just (clsName,loc) -> obtainClassInfo minfo clsName loc
_ -> return Nothing
#if __GLASGOW_HASKELL__ >= 800
[L loc (G.TyClD (G.FamDecl (G.FamilyDecl info (L _ name) (G.HsQTvs _ vars) _ _)))] -> do
[L loc (G.TyClD (G.FamDecl (G.FamilyDecl info (L _ name) (G.HsQTvs _ vars _) _ _)))] -> do
#elif __GLASGOW_HASKELL__ >= 708
[L loc (G.TyClD (G.FamDecl (G.FamilyDecl info (L _ name) (G.HsQTvs _ vars) _)))] -> do
#elif __GLASGOW_HASKELL__ >= 706