diff options
Diffstat (limited to 'Command/Status.hs')
| -rw-r--r-- | Command/Status.hs | 5 |
1 files changed, 2 insertions, 3 deletions
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 $ |