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