Simplify the wrapIO function

This fixes one warning from hlint.

diff --git a/Ganeti/HTools/CLI.hs b/Ganeti/HTools/CLI.hs
index 5bd47ad..0309687 100644 (file)
--- a/Ganeti/HTools/CLI.hs
+++ b/Ganeti/HTools/CLI.hs
@@ -326,9 +326,7 @@ shTemplate =
 
 -- | Error beautifier
 wrapIO :: IO (Result a) -> IO (Result a)
-wrapIO act =
-    handle (\e -> return $ Bad $ show e)
-    act
+wrapIO = handle (return . Bad . show)
 
 -- | External tool data loader from a variety of sources.
 loadExternalData :: Options