From 876568ca9afbe5891a8caa3364208f915a25cd9e Mon Sep 17 00:00:00 2001 From: David Waern Date: Mon, 10 Nov 2008 01:19:18 +0000 Subject: Document the functions in H.DocName --- src/Haddock/DocName.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/Haddock/DocName.hs') diff --git a/src/Haddock/DocName.hs b/src/Haddock/DocName.hs index 959d028b..5bb3c4bb 100644 --- a/src/Haddock/DocName.hs +++ b/src/Haddock/DocName.hs @@ -19,10 +19,12 @@ data DocName = Documented Name Module | Undocumented Name deriving Eq +-- | The 'OccName' belonging to this name docNameOcc :: DocName -> OccName docNameOcc = nameOccName . docNameOrig +-- | The original definition site of this name docNameOrig :: DocName -> Name docNameOrig (Documented name _) = name docNameOrig (Undocumented name) = name -- cgit v1.2.3