fix ignored exception arguments issue

mbraceproject · Dec 24, 2015 · d78d04a · d78d04a
1 parent 08ef3b4
commit d78d04a
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/FsPickler/PicklerGeneration/DataContractPickler.fs b/src/FsPickler/PicklerGeneration/DataContractPickler.fs
@@ -196,7 +196,7 @@ type internal DataContractPickler =
                     match members.[i] with
                     | :? PropertyInfo as p -> p.GetValue t
                     | :? FieldInfo as f -> f.GetValue t
-                    | _ -> invalidOp "internal error on serializing '%O'." typeof<'T>
+                    | _ -> invalidOp <| sprintf "internal error on serializing '%O'." typeof<'T>
 
                 picklers.[i].UntypedWrite w names.[i] value
 
@@ -249,7 +249,7 @@ type internal DataContractPickler =
                     let o' = picklers.[i].UntypedClone c o
                     f.SetValue(t', o')
 
-                | _ -> invalidOp "internal error on cloning '%O'." typeof<'T>
+                | _ -> invalidOp <| sprintf "internal error on cloning '%O'." typeof<'T>
 
             run onSerialized t c
             run onDeserialized t' c
@@ -267,7 +267,7 @@ type internal DataContractPickler =
                     match members.[i] with
                     | :? PropertyInfo as p -> p.GetValue t
                     | :? FieldInfo as f -> f.GetValue t
-                    | _ -> invalidOp "internal error on visiting '%O'." typeof<'T>
+                    | _ -> invalidOp <| sprintf "internal error on visiting '%O'." typeof<'T>
 
                 picklers.[i].UntypedAccept v value