@@ -944,6 +944,7 @@ instance Binary FnOpt where
944944 PartialFn -> putWord8 6
945945 Implicit -> putWord8 7
946946 Reflection -> putWord8 8
947+ ErrorHandler -> putWord8 9
947948 get
948949 = do i <- getWord8
949950 case i of
@@ -957,6 +958,7 @@ instance Binary FnOpt where
957958 6 -> return PartialFn
958959 7 -> return Implicit
959960 8 -> return Reflection
961+ 9 -> return ErrorHandler
960962 _ -> error "Corrupted binary data for FnOpt"
961963
962964instance Binary Fixity where