chore: fix compilation

The App.hs module was missing NamedFieldPuns.
2024-03-27 19:18:17 -05:00
parent 745e7868b0
commit b75cc853b4
2 changed files with 4 additions and 3 deletions
@@ -100,7 +100,7 @@ data Action
  | ActSchemaRead   Schema Bool
  | ActRelationInfo QualifiedIdentifier
  | ActRoutineInfo  QualifiedIdentifier
-  | ActSchemaInfo   Schema
+  | ActSchemaInfo

 {-|
  Describes what the user wants to do. This data type is a
@@ -191,7 +191,7 @@ getAction resource schema method =

    (ResourceSchema, "HEAD")          -> Right $ ActSchemaRead schema True
    (ResourceSchema, "GET")           -> Right $ ActSchemaRead schema False
-    (ResourceSchema, "OPTIONS")       -> Right $ ActSchemaInfo schema
+    (ResourceSchema, "OPTIONS")       -> Right ActSchemaInfo

    _                                 -> Left $ UnsupportedMethod method
  where