git-annex/Types/Messages.hs

{- 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
	deriving (Eq)

data MessageState = MessageState
	{ outputType :: OutputType
	, sideActionBlock :: SideActionBlock
	}

defaultMessageState :: MessageState
defaultMessageState = MessageState NormalOutput NoBlock
display "Recording state in git..." when staging the journal A bit tricky to avoid printing it twice in a row when there are queued git commands to run and journal to stage. Added a generic way to run an action that may output multiple side messages, with only the first displayed. 2012-04-27 17:23:52 +00:00			`{- 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`
Display a warning when a non-existing file or directory is specified. 2012-11-25 21:54:08 +00:00			`deriving (Eq)`
display "Recording state in git..." when staging the journal A bit tricky to avoid printing it twice in a row when there are queued git commands to run and journal to stage. Added a generic way to run an action that may output multiple side messages, with only the first displayed. 2012-04-27 17:23:52 +00:00
			`data MessageState = MessageState`
			`{ outputType :: OutputType`
			`, sideActionBlock :: SideActionBlock`
			`}`

			`defaultMessageState :: MessageState`
Promote file not found warning message to an error. 2014-09-11 17:36:28 +00:00			`defaultMessageState = MessageState NormalOutput NoBlock`