diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-04-21 23:32:33 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-04-21 23:32:33 -0400 |
| commit | ed79596b758935a3f22bf6803bc082a6bbe10f58 (patch) | |
| tree | 885a8a50e68dafb39ec886cb31aa4c549fbeb35e /Messages.hs | |
| parent | bee420bd2d0cbe16489b061b208083e2b8ba9d0e (diff) | |
noop
Diffstat (limited to 'Messages.hs')
| -rw-r--r-- | Messages.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Messages.hs b/Messages.hs index 73a7d976f..af7eb88b4 100644 --- a/Messages.hs +++ b/Messages.hs @@ -72,8 +72,8 @@ metered key a = Annex.getState Annex.output >>= go (keySize key) incrP progress n displayMeter stdout meter liftIO $ clearMeter stdout meter - return r - go _ _ = a (const $ return ()) + return r + go _ _ = a (const noop) showSideAction :: String -> Annex () showSideAction s = handle q $ @@ -160,7 +160,7 @@ handle json normal = Annex.getState Annex.output >>= go go Annex.JSONOutput = liftIO $ flushed json q :: Monad m => m () -q = return () +q = noop flushed :: IO () -> IO () flushed a = a >> hFlush stdout |