@@ -166,8 +166,8 @@ main :: IO ()
166main = bracket (return ()) (\() -> hFlush stdout >> hFlush stderr) $ \() -> do
166main = bracket (return ()) (\() -> hFlush stdout >> hFlush stderr) $ \() -> do
167 let options :: [OptDescr CliOption]
167 let options :: [OptDescr CliOption]
168 options =
168 options =
169− [ Option ['h'] ["help"] (NoArg PrintHelp) "show this help text"
169+ [ Option "h" ["help"] (NoArg PrintHelp) "show this help text"
170− , Option ['v'] ["verbose"] (NoArg Verbose) "enable noisy debug output"
170+ , Option "v" ["verbose"] (NoArg Verbose) "enable noisy debug output"
173 usage :: String
173 usage :: String