outputResult :: Options -> ParseResult -> IO ()
outputResult _    (Left  issue)   = putStrLn "Got an error:" >> spew issue >> exitFailure
outputResult :: Options -> ParseResult -> IO ()
outputResult _    (Left  issue)   = putStrLn "Got an error:" >> spew issue >> exitFailure
outputResult _    (Left  issue)   = putStrLn "Got an error:" >> spew issue >> exitFailure