Filter out ppxAllowStringReturnType

Author: jfrolich

snapshot_tests/operations/expected/apollo/compile/fragmentWithdifferentReturnType.res.txt

@@ -66,7 +66,7 @@ var Raw$1 = {};
 
 var query$1 = Gql`query MyQuery  {
 lists  {
-...ListFragment  @ppxAllowStringReturnType 
+...ListFragment   
 }
 
 }

snapshot_tests/operations/expected/apollo/generate/fragmentWithdifferentReturnType.res.txt

@@ -136,7 +136,7 @@ function back to the original JSON compatible data ")
     [
       "query MyQuery  {
 lists  {
-...ListFragment  @ppxAllowStringReturnType 
+...ListFragment   
 }
 
 }

snapshot_tests/operations/expected/native/generate/fragmentWithdifferentReturnType.res.txt

@@ -136,7 +136,7 @@ function back to the original JSON compatible data ")
     [
       "query MyQuery  {
 lists  {
-...ListFragment  @ppxAllowStringReturnType 
+...ListFragment   
 }
 
 }

snapshot_tests/operations/expected/records/compile/fragmentWithdifferentReturnType.res.txt

@@ -63,7 +63,7 @@ var Raw$1 = {};
 
 var query$1 = Gql`query MyQuery  {
 lists  {
-...ListFragment  @ppxAllowStringReturnType 
+...ListFragment   
 }
 
 }

snapshot_tests/operations/expected/records/generate/fragmentWithdifferentReturnType.res.txt

@@ -136,7 +136,7 @@ function back to the original JSON compatible data ")
     [
       "query MyQuery  {
 lists  {
-...ListFragment  @ppxAllowStringReturnType 
+...ListFragment   
 }
 
 }

snapshot_tests/operations/expected/template/compile/fragmentWithdifferentReturnType.res.txt

@@ -67,7 +67,7 @@ var Raw$1 = {};
 
 var query$1 = Gql`query MyQuery  {
 lists  {
-...ListFragment  @ppxAllowStringReturnType 
+...ListFragment   
 }
 
 }

snapshot_tests/operations/expected/template/generate/fragmentWithdifferentReturnType.res.txt

@@ -136,7 +136,7 @@ function back to the original JSON compatible data ")
     [
       "query MyQuery  {
 lists  {
-...ListFragment  @ppxAllowStringReturnType 
+...ListFragment   
 }
 
 }

snapshot_tests/operations/expected/uncurried/compile/fragmentWithdifferentReturnType.res.txt

@@ -63,7 +63,7 @@ var Raw$1 = {};
 
 var query$1 = Gql`query MyQuery  {
 lists  {
-...ListFragment  @ppxAllowStringReturnType 
+...ListFragment   
 }
 
 }

snapshot_tests/operations/expected/uncurried/generate/fragmentWithdifferentReturnType.res.txt

@@ -136,7 +136,7 @@ function back to the original JSON compatible data ")
     [
       "query MyQuery  {
 lists  {
-...ListFragment  @ppxAllowStringReturnType 
+...ListFragment   
 }
 
 }

src/graphql_compiler/graphql_printer.ml

@@ -53,14 +53,13 @@ let print_directive d =
   | None -> ""
 
 let is_internal_directive d =
-  match d.item.d_name.item with
-  | "bsOmitFutureValue" | "ppxOmitFutureValue" | "bsVariant" | "ppxVariant"
-  | "bsRecord" | "ppxRecord" | "bsObject" | "ppxObject" | "bsDecoder"
-  | "ppxDecoder" | "bsCustom" | "ppxCustom" | "ppxCustomOpt" | "bsAs" | "ppxAs"
-  | "argumentDefinitions" | "arguments" | "bsField" | "ppxField" | "ppxConfig"
-    ->
-    true
-  | _ -> false
+  let name = d.item.d_name.item in
+  if
+    String.starts_with ~prefix:"bs" name
+    || String.starts_with ~prefix:"ppx" name
+  then true
+  else
+    match name with "argumentDefinitions" | "arguments" -> true | _ -> false
 
 let print_directives ds =
   " "