improved error message

input-output-hk · Jun 7, 2024 · 5b68118 · 5b68118
1 parent 9bd49e6
commit 5b68118
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/marlowe-object/src/Language/Marlowe/Object/Types.hs b/marlowe-object/src/Language/Marlowe/Object/Types.hs
@@ -604,7 +604,7 @@ instance FromJSON ShelleyAddress where
 fromCoreAddress :: Core.Network -> PV2.Address -> ShelleyAddress
 fromCoreAddress network addr =
   ShelleyAddress $
-    fromRight (error "fromRight: Left") $
+    fromRight (error $ "core address deserialization failed: " ++ show network ++ " / " ++ show addr) $
       deserialiseFromBech32 (AsAddress AsShelleyAddr) $
         serialiseAddressBech32 network addr