diff options
| author | Ian Lynagh <igloo@earth.li> | 2007-07-02 11:49:24 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2007-07-02 11:49:24 +0000 |
| commit | 218ca73afa77095237ad960289322e6009563744 (patch) | |
| tree | cc5bc4681e8aa36e432c3baf3369000427e5635c | |
| parent | cfe89540b4a0620d02b47786599ad1836d851b25 (diff) | |
| download | haskell-218ca73afa77095237ad960289322e6009563744.tar.gz | |
Add a type signature
| -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 |