From 343da22f6ad9a54cf2f9243af55a00f31581c474 Mon Sep 17 00:00:00 2001 From: Isaac Dupree Date: Sun, 23 Aug 2009 18:28:16 +0000 Subject: add comment for FnArgsDoc type --- src/Haddock/Types.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/Haddock/Types.hs b/src/Haddock/Types.hs index ac3f2b5f..544c7575 100644 --- a/src/Haddock/Types.hs +++ b/src/Haddock/Types.hs @@ -44,6 +44,8 @@ type HsDocString = HsDoc Name type LHsDocString = Located HsDocString #endif +-- | Arguments and result are indexed by Int, zero-based from the left, +-- because that's the easiest to use when recursing over types. type FnArgsDoc name = Map Int (HsDoc name) type DocForDecl name = (Maybe (HsDoc name), FnArgsDoc name) -- cgit v1.2.3