fixup! fixup! fixup! Fix -Wincomplete-uni-patterns
commit8e7e0638294c77570d5805ad60a66fb81f8b6507
authorYuriy Syrovetskiy <cblp@cblp.su>
dateWed 10 Jan 2018, 17:54 (9 years ago)
parentca179ec
exe/json2yaml.hs+1−1
@@ -8,7 +8,7 @@ import qualified Data.Yaml as Y
88main :: IO ()
99main = do
1010 args <- getArgs
11− (input, output) <- case args ++ repeat "-" of
11+ (input, output) <- case args ++ replicate (2 - length args) "-" of
1212 [i, o] -> pure (i, o)
1313 _ -> fail "Usage: json2yaml [in] [out]"
1414 mval <- fmap J.decode $