diff options
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 |