diff --git a/Database/Persist/Class/PersistEntity.hs b/Database/Persist/Class/PersistEntity.hs
--- a/Database/Persist/Class/PersistEntity.hs
+++ b/Database/Persist/Class/PersistEntity.hs
@@ -66,7 +66,7 @@
     -- | A lower-level operation to convert from database values to a Haskell record
     fromPersistValues :: [PersistValue] -> Either Text record
 
-    -- | Unique keys besided the Key
+    -- | Unique keys besides the Key
     data Unique record
     -- | A meta operation to retrieve all the Unique keys
     persistUniqueKeys :: record -> [Unique record]
@@ -81,7 +81,7 @@
 
 type family BackendSpecificUpdate backend record
 
--- | updataing a database entity
+-- | Updating a database entity
 --
 -- Persistent users use combinators to create these
 data Update record = forall typ. PersistField typ => Update
diff --git a/Database/Persist/Quasi.hs b/Database/Persist/Quasi.hs
--- a/Database/Persist/Quasi.hs
+++ b/Database/Persist/Quasi.hs
@@ -62,7 +62,7 @@
                 | c == '(' -> parseEnclosed ')' id t'
                 | c == '[' -> parseEnclosed ']' FTList t'
                 | isUpper c ->
-                    let (a, b) = T.break (\x -> isSpace x || x `elem` "()[]") t
+                    let (a, b) = T.break (\x -> isSpace x || x `elem` ("()[]"::String)) t
                      in PSSuccess (getCon a) b
                 | otherwise -> PSFail $ show (c, t')
     getCon t =
@@ -156,7 +156,7 @@
         | T.head t' == '\\' && T.length t' > 1 =
             quotes (T.drop 2 t') (front . (T.take 1 (T.drop 1 t'):))
         | otherwise =
-            let (x, y) = T.break (`elem` "\\\"") t'
+            let (x, y) = T.break (`elem` ['\\','\"']) t'
              in quotes y (front . (x:))
     parens count t' front
         | T.null t' = error $ T.unpack $ T.concat $
@@ -170,7 +170,7 @@
         | T.head t' == '\\' && T.length t' > 1 =
             parens count (T.drop 2 t') (front . (T.take 1 (T.drop 1 t'):))
         | otherwise =
-            let (x, y) = T.break (`elem` "\\()") t'
+            let (x, y) = T.break (`elem` ['\\','(',')']) t'
              in parens count y (front . (x:))
 
 -- | A string of tokens is empty when it has only spaces.  There
diff --git a/persistent.cabal b/persistent.cabal
--- a/persistent.cabal
+++ b/persistent.cabal
@@ -1,5 +1,5 @@
 name:            persistent
-version:         2.1.1.3
+version:         2.1.1.4
 license:         MIT
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>