Fix incomplete pattern warning

smucclaw · Sep 23, 2024 · c4c6fc5 · c4c6fc5
1 parent 110c232
commit c4c6fc5
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/lib/haskell/web-service/src/Server.hs b/lib/haskell/web-service/src/Server.hs
@@ -558,7 +558,10 @@ instance ToJSON Function where
 
 instance FromJSON Function where
   parseJSON = Aeson.withObject "Function" $ \o -> do
-    "function" :: Text <- o .: "type"
+    fnType <- o .: "type"
+    case fnType :: Text of
+      "function" -> pure ()
+      e -> fail $ "Expected \"function\" but got" <> Text.unpack e
     props <- o .: "function"
     Aeson.withObject
       "function body"