diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-05-10 09:47:41 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-05-10 09:47:41 +0000 |
| commit | ef7d9db56c08b8da3d77258eb73ed69d0a24bed7 (patch) | |
| tree | 3d2f1010e8bc74b62cb6d249814470b18356bafe /compiler | |
| parent | b8c1015f6b7189038d70c822558d217b6f6a97a5 (diff) | |
| download | haskell-ef7d9db56c08b8da3d77258eb73ed69d0a24bed7.tar.gz | |
looksLikeModuleName: allow apostrophe in module names (#4051)
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/utils/Util.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/utils/Util.lhs b/compiler/utils/Util.lhs index ec5070f26a..e019f67ca7 100644 --- a/compiler/utils/Util.lhs +++ b/compiler/utils/Util.lhs @@ -815,7 +815,7 @@ looksLikeModuleName [] = False looksLikeModuleName (c:cs) = isUpper c && go cs where go [] = True go ('.':cs) = looksLikeModuleName cs - go (c:cs) = (isAlphaNum c || c == '_') && go cs + go (c:cs) = (isAlphaNum c || c == '_' || c == '\'') && go cs \end{code} Akin to @Prelude.words@, but acts like the Bourne shell, treating |