summaryrefslogtreecommitdiff
path: root/Text/ProtocolBuffers/WireMessage.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Text/ProtocolBuffers/WireMessage.hs')
-rw-r--r--Text/ProtocolBuffers/WireMessage.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Text/ProtocolBuffers/WireMessage.hs b/Text/ProtocolBuffers/WireMessage.hs
index 0f060fa..635e816 100644
--- a/Text/ProtocolBuffers/WireMessage.hs
+++ b/Text/ProtocolBuffers/WireMessage.hs
@@ -469,7 +469,7 @@ wireSizeErr :: Typeable a => FieldType -> a -> WireSize
wireSizeErr ft x = error $ concat [ "Impossible? wireSize field type mismatch error: Field type number ", show ft
, " does not match internal type ", show (typeOf x) ]
wirePutErr :: Typeable a => FieldType -> a -> PutM b
-wirePutErr ft x = fail $ concat [ "Impossible? wirePut field type mismatch error: Field type number ", show ft
+wirePutErr ft x = error $ concat [ "Impossible? wirePut field type mismatch error: Field type number ", show ft
, " does not match internal type ", show (typeOf x) ]
wireGetErr :: Typeable a => FieldType -> Get a
wireGetErr ft = answer where