diff options
author | David Waern <david.waern@gmail.com> | 2008-10-22 21:17:29 +0000 |
---|---|---|
committer | David Waern <david.waern@gmail.com> | 2008-10-22 21:17:29 +0000 |
commit | 37e9215f270f097cf914fe6845cd27cddb10de1b (patch) | |
tree | 0d89d01f96b951498b3f31343b45715babe132ae /src/Haddock/GHC | |
parent | 6e486b769f104281b4c56689c31ed522c800fcca (diff) |
Fix warnings in H.GHC.Utils
Diffstat (limited to 'src/Haddock/GHC')
-rw-r--r-- | src/Haddock/GHC/Utils.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Haddock/GHC/Utils.hs b/src/Haddock/GHC/Utils.hs index 549482ef..40e13004 100644 --- a/src/Haddock/GHC/Utils.hs +++ b/src/Haddock/GHC/Utils.hs @@ -81,23 +81,28 @@ getMainDeclBinder (ForD (ForeignExport _ _ _)) = Nothing getMainDeclBinder _ = Nothing +isTyClD :: HsDecl a -> Bool isTyClD (TyClD _) = True isTyClD _ = False +isClassD :: HsDecl a -> Bool isClassD (TyClD d) = isClassDecl d isClassD _ = False +isDocD :: HsDecl a -> Bool isDocD (DocD _) = True isDocD _ = False +isInstD :: HsDecl a -> Bool isInstD (InstD _) = True isInstD (TyClD d) = isFamInstDecl d isInstD _ = False +declATs :: HsDecl a -> [a] declATs (TyClD d) | isClassDecl d = map (tcdName . unL) $ tcdATs d declATs _ = [] |