From ef7d9db56c08b8da3d77258eb73ed69d0a24bed7 Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Mon, 10 May 2010 09:47:41 +0000
Subject: [PATCH] looksLikeModuleName: allow apostrophe in module names
 (#4051)

---
 compiler/utils/Util.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/utils/Util.lhs b/compiler/utils/Util.lhs
index ec5070f..e019f67 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
-- 
1.7.10.4