more Flexprint instances

diff --git a/Network/AMQP/Utils/Helpers.hs b/Network/AMQP/Utils/Helpers.hs
index 6e135158cc3d4e4e93c34f7e7431befd7941bc24..5763326d1f90f34e9f4d4cfee184eb114bc83b9d 100644 (file)
--- a/Network/AMQP/Utils/Helpers.hs
+++ b/Network/AMQP/Utils/Helpers.hs
@@ -17,11 +17,6 @@ import System.Exit
 import System.IO
 import System.Process
 
--- | log cmdline options
-listToMaybeUnwords :: [String] -> Maybe String
-listToMaybeUnwords [] = Nothing
-listToMaybeUnwords x = Just $ unwords x
-
 -- | Strings or ByteStrings with label, oder nothing at all
 printwithlabel :: String -> Maybe (IO ()) -> IO ()
 printwithlabel _ Nothing = return ()
@@ -37,7 +32,7 @@ instance Flexprint (Maybe String) where
   flexprint = fmap (hPutStrLn stderr)
 
 instance Flexprint (Maybe Int) where
-  flexprint = fmap (hPutStrLn stderr . show)
+  flexprint x = flexprint (fmap show x)
 
 instance Flexprint String where
   flexprint x = flexprint (Just x)