@@ -8,9 +8,9 @@ import qualified Data.Yaml as Y
88main :: IO ()
99main = do
1010 args <- getArgs
11− let (input, output) = case args ++ repeat "-" of
12− [i, o] -> (i, o)
13− _ -> error "Usage: json2yaml [in] [out]"
11+ (input, output) <- case args ++ repeat "-" of
12+ [i, o] -> pure (i, o)
13+ _ -> fail "Usage: json2yaml [in] [out]"
1414 mval <- fmap J.decode $
1515 case input of
1616 "-" -> L.getContents