diff --git a/src/Language/PureScript/Parser/Lexer.hs b/src/Language/PureScript/Parser/Lexer.hs
index 6125785fbd..cc615ff53f 100644
--- a/src/Language/PureScript/Parser/Lexer.hs
+++ b/src/Language/PureScript/Parser/Lexer.hs
@@ -604,8 +604,7 @@ isUnquotedKeyTailChar c = (c `elem` ("_'" :: [Char])) || isAlphaNum c
 --
 isUnquotedKey :: Text -> Bool
 isUnquotedKey t =
-  t `notElem` reservedPsNames
-  && case T.uncons t of
-      Nothing -> False
-      Just (hd, tl) -> isUnquotedKeyHeadChar hd &&
-                       T.all isUnquotedKeyTailChar tl
+  case T.uncons t of
+    Nothing -> False
+    Just (hd, tl) -> isUnquotedKeyHeadChar hd &&
+                     T.all isUnquotedKeyTailChar tl