From ed79596b758935a3f22bf6803bc082a6bbe10f58 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 21 Apr 2012 23:32:33 -0400 Subject: noop --- Command/Status.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'Command/Status.hs') diff --git a/Command/Status.hs b/Command/Status.hs index 1ee36d8b4..0c6eda0b2 100644 --- a/Command/Status.hs +++ b/Command/Status.hs @@ -108,12 +108,11 @@ nojson :: StatState String -> String -> StatState String nojson a _ = a showStat :: Stat -> StatState () -showStat s = calc =<< s +showStat s = maybe noop calc =<< s where - calc (Just (desc, a)) = do + calc (desc, a) = do (lift . showHeader) desc lift . showRaw =<< a - calc Nothing = return () supported_backends :: Stat supported_backends = stat "supported backends" $ json unwords $ -- cgit v1.2.3