locli: Tolerance fix

IntersectMBO · May 30, 2023 · 43413fb · 43413fb
1 parent 4afd809
commit 43413fb
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/bench/locli/src/Cardano/Unlog/LogObject.hs b/bench/locli/src/Cardano/Unlog/LogObject.hs
@@ -31,7 +31,6 @@ where
 import           Cardano.Prelude hiding (Text, show)
 import           Prelude (id, show, unzip3)
 
-import           Control.Monad (fail)
 import qualified Data.Aeson as AE
 import qualified Data.Aeson.Key as Aeson
 import qualified Data.Aeson.KeyMap as KeyMap
@@ -479,7 +478,7 @@ instance FromJSON LogObject where
        case (kind, wrapped, unwrapped) of
          (Nothing, Just _, Just x) -> (,) <$> pure x <*> (fromText <$> x .: "kind")
          (Just kind0, _, _) -> pure (v, kind0)
-         _ -> fail $ "Unexpected LogObject .data: " <> show v
+         _ -> pure (v, "")
 
 parsePartialResourceStates :: Value -> Parser (Resources Word64)
 parsePartialResourceStates =