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

fix build w/o concurrent-output

Browse source
This commit is contained in:
Joey Hess 2015-11-06 12:51:25 -04:00
parent cf8076522c
commit 013986b492
Failed to extract signature
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Types/Messages.hs
View file

@ -24,10 +24,19 @@ data SideActionBlock = NoBlock | StartBlock | InBlock
data MessageState = MessageState data MessageState = MessageState
{ outputType :: OutputType { outputType :: OutputType
, sideActionBlock :: SideActionBlock , sideActionBlock :: SideActionBlock
#ifdef WITH_CONCURRENTOUTPUT
, consoleRegion :: Maybe ConsoleRegion , consoleRegion :: Maybe ConsoleRegion
, consoleRegionErrFlag :: Bool , consoleRegionErrFlag :: Bool
#endif
} }
instance Default MessageState instance Default MessageState
where where
def = MessageState NormalOutput NoBlock Nothing False def = MessageState
{ outputType = NormalOutput
, sideActionBlock = NoBlock
#ifdef WITH_CONCURRENTOUTPUT
, consoleRegion = Nothing
, consoleRegionErrFlag = False
#endif
}