avoid unused variable

This commit is contained in:
Joey Hess 2015-05-27 17:02:23 -04:00
parent 3879bca336
commit 799dc8d329

View file

@ -616,7 +616,7 @@ mangleCode = flip_colon
let_do = parsecAndReplace $ do
void $ string "= do { let "
x <- many $ noneOf "=\r\n"
ws <- many1 $ oneOf " \t\r\n"
_ <- many1 $ oneOf " \t\r\n"
void $ string "= "
return $ "= do { " ++ x ++ " <- return $ "