diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-10-28 21:27:15 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-10-28 21:27:15 -0400 |
| commit | 3f4471609c11083429914372978f8c852cd1cf0b (patch) | |
| tree | 7e8221412ac18eac644c782dec7bb455b3cbbdc9 /Messages.hs | |
| parent | 30685dd2a6e6706128a3539f3617b017f4e20e60 (diff) | |
indentation foo, and a new coding style page. no code changes
Diffstat (limited to 'Messages.hs')
| -rw-r--r-- | Messages.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Messages.hs b/Messages.hs index d8d84d1ec..08a17b25c 100644 --- a/Messages.hs +++ b/Messages.hs @@ -84,7 +84,7 @@ showSideAction m = Annex.getState Annex.output >>= go where go (MessageState v StartBlock) = do p - Annex.changeState $ \s -> s { Annex.output = MessageState v InBlock } + Annex.changeState $ \s -> s { Annex.output = MessageState v InBlock } go (MessageState _ InBlock) = return () go _ = p p = handle q $ putStrLn $ "(" ++ m ++ "...)" |