diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-04-03 19:56:56 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-04-03 19:56:56 -0400 |
| commit | 422258a5ea23b885e31702f98f16923d205a20de (patch) | |
| tree | c066f01ae895cf1d702ec1cfa9897ce4931a2a0b /Types | |
| parent | c4218e0ffed77e2afaafc8efd19efd907a6abd8a (diff) | |
use def
Diffstat (limited to 'Types')
| -rw-r--r-- | Types/Messages.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/Types/Messages.hs b/Types/Messages.hs index 35bb19057..a437d86ef 100644 --- a/Types/Messages.hs +++ b/Types/Messages.hs @@ -7,6 +7,8 @@ module Types.Messages where +import Data.Default + data OutputType = NormalOutput | QuietOutput | ProgressOutput | JSONOutput data SideActionBlock = NoBlock | StartBlock | InBlock @@ -17,5 +19,6 @@ data MessageState = MessageState , sideActionBlock :: SideActionBlock } -defaultMessageState :: MessageState -defaultMessageState = MessageState NormalOutput NoBlock +instance Default MessageState + where + def = MessageState NormalOutput NoBlock |