git-annex/Types/Messages.hs

{- git-annex Messages data types
 - 
 - Copyright 2012 Joey Hess <id@joeyh.name>
 -
 - Licensed under the GNU GPL version 3 or higher.
 -}

{-# LANGUAGE CPP #-}

module Types.Messages where

import Data.Default

#ifdef WITH_CONCURRENTOUTPUT
import System.Console.Regions (ConsoleRegion)
#endif

data OutputType = NormalOutput | QuietOutput | ConcurrentOutput Int | JSONOutput
	deriving (Show)

data SideActionBlock = NoBlock | StartBlock | InBlock
	deriving (Eq)

data MessageState = MessageState
	{ outputType :: OutputType
	, sideActionBlock :: SideActionBlock
	, consoleRegion :: Maybe ConsoleRegion
	, consoleRegionErrFlag :: Bool
	}

instance Default MessageState
  where
	def = MessageState NormalOutput NoBlock Nothing False
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`
			`-`
update my email address and homepage url 2015-01-21 16:50:09 +00:00			`- Copyright 2012 Joey Hess <id@joeyh.name>`
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			`-`
			`- Licensed under the GNU GPL version 3 or higher.`
			`-}`

arrange for regional output manager to run when -J is enabled Commands that want to use it have to run their seek action inside allowConcurrentOutput. Which seems reasonable; perhaps some future command will want to support the -J flag but not use regions. The region state moved from Annex to MessageState. This makes sense organizationally, and note that some uses of onLocal use a different Annex state, but pass the MessageState into it, which is what is needed. 2015-11-04 20:19:00 +00:00			`{-# LANGUAGE CPP #-}`

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			`module Types.Messages where`

use def 2015-04-03 23:56:56 +00:00			`import Data.Default`

arrange for regional output manager to run when -J is enabled Commands that want to use it have to run their seek action inside allowConcurrentOutput. Which seems reasonable; perhaps some future command will want to support the -J flag but not use regions. The region state moved from Annex to MessageState. This makes sense organizationally, and note that some uses of onLocal use a different Annex state, but pass the MessageState into it, which is what is needed. 2015-11-04 20:19:00 +00:00			`#ifdef WITH_CONCURRENTOUTPUT`
			`import System.Console.Regions (ConsoleRegion)`
			`#endif`

concurrent-output, first pass Output without -Jn should be unchanged from before. With -Jn, concurrent-output is used for messages, but regions are not used yet, so it's a mess. 2015-11-04 17:45:34 +00:00			`data OutputType = NormalOutput \| QuietOutput \| ConcurrentOutput Int \| JSONOutput`
arrange for regional output manager to run when -J is enabled Commands that want to use it have to run their seek action inside allowConcurrentOutput. Which seems reasonable; perhaps some future command will want to support the -J flag but not use regions. The region state moved from Annex to MessageState. This makes sense organizationally, and note that some uses of onLocal use a different Annex state, but pass the MessageState into it, which is what is needed. 2015-11-04 20:19:00 +00:00			`deriving (Show)`
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 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`
arrange for regional output manager to run when -J is enabled Commands that want to use it have to run their seek action inside allowConcurrentOutput. Which seems reasonable; perhaps some future command will want to support the -J flag but not use regions. The region state moved from Annex to MessageState. This makes sense organizationally, and note that some uses of onLocal use a different Annex state, but pass the MessageState into it, which is what is needed. 2015-11-04 20:19:00 +00:00			`, consoleRegion :: Maybe ConsoleRegion`
			`, consoleRegionErrFlag :: Bool`
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			`}`

use def 2015-04-03 23:56:56 +00:00			`instance Default MessageState`
			`where`
arrange for regional output manager to run when -J is enabled Commands that want to use it have to run their seek action inside allowConcurrentOutput. Which seems reasonable; perhaps some future command will want to support the -J flag but not use regions. The region state moved from Annex to MessageState. This makes sense organizationally, and note that some uses of onLocal use a different Annex state, but pass the MessageState into it, which is what is needed. 2015-11-04 20:19:00 +00:00			`def = MessageState NormalOutput NoBlock Nothing False`