diff options
| -rw-r--r-- | compiler/utils/Util.lhs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/utils/Util.lhs b/compiler/utils/Util.lhs index 8d790010a9..0a77e4d92a 100644 --- a/compiler/utils/Util.lhs +++ b/compiler/utils/Util.lhs @@ -733,6 +733,7 @@ consIORef var x = do Module names: \begin{code} +looksLikeModuleName :: String -> Bool looksLikeModuleName [] = False looksLikeModuleName (c:cs) = isUpper c && go cs where go [] = True |