Add Show instance for `Options`

This commit is contained in:
Daniel Gröber 2014-10-23 00:53:41 +02:00
parent 9ac128aa6f
commit 34dd9de83c
1 changed files with 3 additions and 2 deletions

View File

@ -19,9 +19,10 @@ type IOish m = (Functor m, MonadIO m, MonadBaseControl IO m, ExceptionMonad m)
-- | Output style. -- | Output style.
data OutputStyle = LispStyle -- ^ S expression style. data OutputStyle = LispStyle -- ^ S expression style.
| PlainStyle -- ^ Plain textstyle. | PlainStyle -- ^ Plain textstyle.
deriving (Show)
-- | The type for line separator. Historically, a Null string is used. -- | The type for line separator. Historically, a Null string is used.
newtype LineSeparator = LineSeparator String newtype LineSeparator = LineSeparator String deriving (Show)
data Options = Options { data Options = Options {
outputStyle :: OutputStyle outputStyle :: OutputStyle
@ -40,7 +41,7 @@ data Options = Options {
-- | If 'True', 'browse' will return fully qualified name -- | If 'True', 'browse' will return fully qualified name
, qualified :: Bool , qualified :: Bool
, hlintOpts :: [String] , hlintOpts :: [String]
} } deriving (Show)
-- | A default 'Options'. -- | A default 'Options'.