From: Ian Lynagh Date: Mon, 2 Jul 2007 11:49:24 +0000 (+0000) Subject: Add a type signature X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=218ca73afa77095237ad960289322e6009563744 Add a type signature --- diff --git a/compiler/utils/Util.lhs b/compiler/utils/Util.lhs index 8d79001..0a77e4d 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