handle single quotes

dtpowl · dtpowl · commit c0e1bfdedd3e · 2025-07-03T13:22:47.000-06:00
diff --git a/persistent/Database/Persist/Quasi/Internal/ModelParser.hs b/persistent/Database/Persist/Quasi/Internal/ModelParser.hs
@@ -893,6 +893,7 @@ directiveArgument = do
             , char ','
             , char '='
             , char '"'
+            , char '\''
             , do
                 backslash <- char '\\'
                 nextChar <- lookAhead anySingle
