fixup! Fix -Wincomplete-uni-patterns
commit145b01477b346756be3f358b13ca780e922c42d2
authorYuriy Syrovetskiy <cblp@cblp.su>
dateWed 10 Jan 2018, 17:45 (9 years ago)
parentbbcd0ab
exe/json2yaml.hs+1−1
@@ -9,7 +9,7 @@ main :: IO ()
99main = do
1010 args <- getArgs
1111 let (input, output) = case args ++ repeat "-" of
12− (i:o:_) -> (i, o)
12+ [i, o] -> (i, o)
1313 _ -> error "Usage: json2yaml [in] [out]"
1414 mval <- fmap J.decode $
1515 case input of