Relax JSON parsing

plow-technologies · Sep 23, 2024 · 311cd21 · 311cd21
1 parent a4f9f7d
commit 311cd21
Showing 1 changed file with 1 addition and 7 deletions.
diff --git a/inferno-ml-server-types/src/Inferno/ML/Server/Types.hs b/inferno-ml-server-types/src/Inferno/ML/Server/Types.hs
@@ -336,19 +336,13 @@ instance
     Model
       -- If a new model is being created, its ID will not be present
       <$> o .:? "id"
-      <*> (ensureNotNull =<< o .: "name")
+      <*> o .: "name"
       <*> o .: "gid"
       <*> o .: "visibility"
       <*> o .:? "updated"
       -- If a new model is being serialized, it does not really make
       -- sense to require a `"terminated": null` field
       <*> o .:? "terminated"
-    where
-      ensureNotNull :: Text -> Parser Text
-      ensureNotNull
-        t
-          | Text.null t = fail "Field cannot be empty"
-          | otherwise = pure t
 {- ORMOLU_ENABLE -}
 
 instance ToJSON gid => ToJSON (Model gid) where