refactor: stricter plan media type

2023-06-20 19:12:17 -05:00
parent c1a8661ab3
commit 856d450775
6 changed files with 53 additions and 51 deletions
@@ -167,7 +167,7 @@ preparePlanRows :: SQL.Snippet -> Bool -> SQL.Statement () (Maybe Int64)
 preparePlanRows countQuery =
  SQL.dynamicallyParameterized snippet decodeIt
  where
-    snippet = explainF (Just PlanJSON) mempty countQuery
+    snippet = explainF PlanJSON mempty countQuery
    decodeIt :: HD.Result (Maybe Int64)
    decodeIt =
      let row = HD.singleRow $ column HD.bytea in