silence Tab warnings in the Haskell runtime

This commit is contained in:
Krasimir Angelov
2017-09-01 14:31:08 +02:00
parent c48f3bdfbc
commit bbdbf2bc5d
3 changed files with 31 additions and 31 deletions

View File

@@ -71,12 +71,12 @@ pIdent =
-- where
insideChar = RP.readS_to_P $ \s ->
case s of
[] -> []
('\\':'\\':cs) -> [('\\',cs)]
('\\':'\'':cs) -> [('\'',cs)]
('\\':cs) -> []
('\'':cs) -> []
(c:cs) -> [(c,cs)]
[] -> []
('\\':'\\':cs) -> [('\\',cs)]
('\\':'\'':cs) -> [('\'',cs)]
('\\':cs) -> []
('\'':cs) -> []
(c:cs) -> [(c,cs)]
isIdentFirst c =
(c == '_') ||