fix another bug

Author: dtpowl

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

@@ -911,7 +911,7 @@ directive = do
     dcb <- getDcb
     pos <- getSourcePos
     dn <- L.lexeme spaceConsumer directiveName
-    args <- some $ L.lexeme spaceConsumer directiveArgument
+    args <- many $ L.lexeme spaceConsumer directiveArgument
     _ <- setLastDocumentablePosition
     lookAhead (void newline <|> eof)
     pure $