mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

use def

Browse source
This commit is contained in:
Joey Hess 2015-04-03 19:56:56 -04:00
commit 3146d24e29
2 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Types/Messages.hs
View file

@ -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