diff options
| author | Krasimir Angelov <kr.angelov@gmail.com> | 2017-09-01 14:31:08 +0200 |
|---|---|---|
| committer | Krasimir Angelov <kr.angelov@gmail.com> | 2017-09-01 14:31:08 +0200 |
| commit | bbdbf2bc5d34d75cef032b395e4a5cc35a89066d (patch) | |
| tree | 5718b6b3108eed7fb22cd2ba6171e7094c8bce9e /src/runtime/haskell/PGF/CId.hs | |
| parent | c48f3bdfbc789820e678e3e44aeafb4a82e18395 (diff) | |
silence Tab warnings in the Haskell runtime
Diffstat (limited to 'src/runtime/haskell/PGF/CId.hs')
| -rw-r--r-- | src/runtime/haskell/PGF/CId.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/runtime/haskell/PGF/CId.hs b/src/runtime/haskell/PGF/CId.hs index 785642cdf..ed4990300 100644 --- a/src/runtime/haskell/PGF/CId.hs +++ b/src/runtime/haskell/PGF/CId.hs @@ -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 == '_') || |