aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2008-10-22 21:17:29 +0000
committerDavid Waern <david.waern@gmail.com>2008-10-22 21:17:29 +0000
commit37e9215f270f097cf914fe6845cd27cddb10de1b (patch)
tree0d89d01f96b951498b3f31343b45715babe132ae
parent6e486b769f104281b4c56689c31ed522c800fcca (diff)
Fix warnings in H.GHC.Utils
-rw-r--r--src/Haddock/GHC/Utils.hs5
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 _ = []