From 0675cd57b6814cd13d5fdbcec3ea021eef6848a6 Mon Sep 17 00:00:00 2001 From: David Waern Date: Sat, 16 Oct 2010 21:15:25 +0000 Subject: Style police --- src/Haddock/Types.hs | 27 ++++++++++++++------------- 1 file changed, 14 insertions(+), 13 deletions(-) (limited to 'src/Haddock') 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 -- cgit v1.2.3