diff options
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 == '_') || |