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 | |
| parent | 6e486b769f104281b4c56689c31ed522c800fcca (diff) | |
Fix warnings in H.GHC.Utils
| -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 _ = [] |