diff --git a/src/Propa/Prolog/Parse.hs b/src/Propa/Prolog/Parse.hs
index ac85a11..6aba6b4 100644
--- a/src/Propa/Prolog/Parse.hs
+++ b/src/Propa/Prolog/Parse.hs
@@ -42,7 +42,7 @@ pName :: Parser T.Text
 pName = lexeme $ unquotedName <|> quotedName
   where
     unquotedName = takeWhile1P (Just "lowercase character") isLower
-    quotedName = fmap T.pack $ C.char '"' *> manyTill L.charLiteral (C.char '"')
+    quotedName = fmap T.pack $ C.char '\'' *> manyTill L.charLiteral (C.char '\'')
 
 pVarName :: Parser T.Text
 pVarName = lexeme $ takeWhile1P (Just "uppercase character") isUpper