diff options
author | David Waern <david.waern@gmail.com> | 2010-10-16 21:15:25 +0000 |
---|---|---|
committer | David Waern <david.waern@gmail.com> | 2010-10-16 21:15:25 +0000 |
commit | 0675cd57b6814cd13d5fdbcec3ea021eef6848a6 (patch) | |
tree | bca1774bd3e4db76e0560f92ee161eec638d1a0d /src/Haddock | |
parent | 1bd03d283f98d7841efd2ce4b75900f558e26c83 (diff) |
Style police
Diffstat (limited to 'src/Haddock')
-rw-r--r-- | src/Haddock/Types.hs | 27 |
1 files changed, 14 insertions, 13 deletions
diff --git a/src/Haddock/Types.hs b/src/Haddock/Types.hs index 7001d9d3..6b4063c0 100644 --- a/src/Haddock/Types.hs +++ b/src/Haddock/Types.hs @@ -323,19 +323,19 @@ data DocMarkup id a = Markup { data HaddockModInfo name = HaddockModInfo { - hmi_description :: Maybe (Doc name), - hmi_portability :: Maybe String, - hmi_stability :: Maybe String, - hmi_maintainer :: Maybe String + hmi_description :: Maybe (Doc name), + hmi_portability :: Maybe String, + hmi_stability :: Maybe String, + hmi_maintainer :: Maybe String } emptyHaddockModInfo :: HaddockModInfo a emptyHaddockModInfo = HaddockModInfo { - hmi_description = Nothing, - hmi_portability = Nothing, - hmi_stability = Nothing, - hmi_maintainer = Nothing + hmi_description = Nothing, + hmi_portability = Nothing, + hmi_stability = Nothing, + hmi_maintainer = Nothing } @@ -354,13 +354,14 @@ data DocOption -- exported by this module. deriving (Eq, Show) + -- | Option controlling how to qualify names data Qualification - = NoQual -- ^ Never qualify any names - | FullQual -- ^ Qualify all names fully - | LocalQual (Maybe Module) -- ^ Qualify all imported names fully - | RelativeQual (Maybe Module) -- ^ Like local, but strip module prefix - -- from modules in the same hierarchy + = NoQual -- ^ Never qualify any names + | FullQual -- ^ Qualify all names fully + | LocalQual (Maybe Module) -- ^ Qualify all imported names fully + | RelativeQual (Maybe Module) -- ^ Like local, but strip module prefix + -- from modules in the same hierarchy ----------------------------------------------------------------------------- -- * Error handling |