From 7c06f2e40b302af4f81f08fa9521c3e063dfa120 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 6 Nov 2015 12:51:25 -0400 Subject: fix build w/o concurrent-output --- Types/Messages.hs | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/Types/Messages.hs b/Types/Messages.hs index 0e60f36c8..e8dbb8e89 100644 --- a/Types/Messages.hs +++ b/Types/Messages.hs @@ -24,10 +24,19 @@ data SideActionBlock = NoBlock | StartBlock | InBlock data MessageState = MessageState { outputType :: OutputType , sideActionBlock :: SideActionBlock +#ifdef WITH_CONCURRENTOUTPUT , consoleRegion :: Maybe ConsoleRegion , consoleRegionErrFlag :: Bool +#endif } instance Default MessageState where - def = MessageState NormalOutput NoBlock Nothing False + def = MessageState + { outputType = NormalOutput + , sideActionBlock = NoBlock +#ifdef WITH_CONCURRENTOUTPUT + , consoleRegion = Nothing + , consoleRegionErrFlag = False +#endif + } -- cgit v1.2.3