From 218ca73afa77095237ad960289322e6009563744 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Mon, 2 Jul 2007 11:49:24 +0000 Subject: [PATCH] Add a type signature --- compiler/utils/Util.lhs | 1 + 1 file changed, 1 insertion(+) 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 -- 1.7.10.4