making single quote a valid character

Author: valbers

src/FSharp.Data.GraphQL.Shared/Parser.fs

@@ -87,7 +87,13 @@ module internal Internal =
           (hex2int h3)*4096 + (hex2int h2)*256 + (hex2int h1)*16 + hex2int h0 |> char)
       pchar '\\' >>. (escaped <|> unicode)
 
-    let normalCharacter = noneOf [|'\u000A';'\u000D';'\u2028';'\u2029';'"';'\''|]
+    let normalCharacter =
+      noneOf
+        [| '\u000A'
+           '\u000D'
+           '\u2028'
+           '\u2029'
+           '"' |]
     let quote =  pchar '"'
 
     between quote quote (manyChars (escapedCharacter <|> normalCharacter))

tests/FSharp.Data.GraphQL.Tests/ParserTests.fs

@@ -306,6 +306,19 @@ let ``parser should parse query with quoted arguments``() =
     }
   }"""
 
+[<Fact>]
+let ``parser should parse query with single-quoted arguments``() =
+    let expected =
+        [ field "id" ]
+        |> fieldWithNameAndArgsAndSelections "search" [ argString "query" "It's working!" ]
+        |> queryWithSelection
+        |> doc1
+    test expected """{
+    search(query: "It's working!") {
+      id
+    }
+  }"""
+
 [<Fact>]
 let ``parser should parse query with arguments``() =
     let expected =