diff options
Diffstat (limited to 'Types')
| -rw-r--r-- | Types/Messages.hs | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/Types/Messages.hs b/Types/Messages.hs new file mode 100644 index 000000000..75653d574 --- /dev/null +++ b/Types/Messages.hs @@ -0,0 +1,20 @@ +{- git-annex Messages data types + - + - Copyright 2012 Joey Hess <joey@kitenet.net> + - + - Licensed under the GNU GPL version 3 or higher. + -} + +module Types.Messages where + +data OutputType = NormalOutput | QuietOutput | JSONOutput + +data SideActionBlock = NoBlock | StartBlock | InBlock + +data MessageState = MessageState + { outputType :: OutputType + , sideActionBlock :: SideActionBlock + } + +defaultMessageState :: MessageState +defaultMessageState = MessageState NormalOutput NoBlock |