@@ -9,7 +9,7 @@ main :: IO ()
10 args <- getArgs
10 args <- getArgs
11 (input, output) <- case args ++ replicate (2 - length args) "-" of
11 (input, output) <- case args ++ replicate (2 - length args) "-" of
12− [i, o] -> pure (i, o)
12+ [i, o] -> return (i, o)
13 _ -> fail "Usage: json2yaml [in] [out]"
13 _ -> fail "Usage: json2yaml [in] [out]"
14 mval <- fmap J.decode $
14 mval <- fmap J.decode $
15 case input of
15 case input of