fix another bug

Author: dtpowl

persistent/Database/Persist/Quasi/Internal/ModelParser.hs

@@ -274,6 +274,7 @@ data Attribute
 data DirectiveArgument
     = -- This is too unstructured. We should rework directive parsing and make this smarter.
       DText Text
+    | DParenthetical Text
     | -- | Quoted directive arguments are deprecated since 2.17.1.0.
       DQuotation Text
     deriving (Eq, Ord, Show)
@@ -860,13 +861,16 @@ directiveArgument = do
   where
     isQuotedArgumentError (FancyError _ s) = s == Set.singleton (ErrorFail quotedArgumentErrorMessage)
     isQuotedArgumentError _ = False
+    parentheticalInner = do
+        str <- parenthetical'
+        pure . init . drop 1 $ str
     directiveArgument' = do
         q <- lookAhead (optional $ char '"')
         case q of
             Just _ -> fail quotedArgumentErrorMessage
             Nothing ->
                 choice
-                    [ DText . Text.pack <$> parenthetical'
+                    [ DParenthetical . Text.pack . init . drop 1 <$> L.lexeme spaceConsumer parenthetical'
                     , DText . Text.pack <$> some directiveArgumentChar
                     ]
     -- This big random-looking character class is a sign that the parser is too lax.
@@ -904,6 +908,7 @@ directiveArgument = do
 directiveArgumentContent :: DirectiveArgument -> Text
 directiveArgumentContent = \case
     DText t -> t
+    DParenthetical t -> t
     DQuotation t -> t
 
 directive :: Parser Member