fixup! fixup! fixup! fixup! Fix -Wincomplete-uni-patterns
commit40efb9e7a112a256963510a72a47bdedf8cee7a1
authorYuriy Syrovetskiy <cblp@cblp.su>
dateWed 10 Jan 2018, 23:54 (9 years ago)
parent8e7e063
exe/json2yaml.hs+1−1
@@ -9,7 +9,7 @@ main :: IO ()
99main = do
1010 args <- getArgs
1111 (input, output) <- case args ++ replicate (2 - length args) "-" of
12− [i, o] -> pure (i, o)
12+ [i, o] -> return (i, o)
1313 _ -> fail "Usage: json2yaml [in] [out]"
1414 mval <- fmap J.decode $
1515 case input of