@@ -999,6 +999,7 @@ instance Binary FnOpt where
999 PartialFn -> putWord8 6
999 PartialFn -> putWord8 6
1000 Implicit -> putWord8 7
1000 Implicit -> putWord8 7
1001 Reflection -> putWord8 8
1001 Reflection -> putWord8 8
1002+ ErrorHandler -> putWord8 9
1003 = do i <- getWord8
1004 = do i <- getWord8
1004 case i of
1005 case i of
@@ -1012,6 +1013,7 @@ instance Binary FnOpt where
1012 6 -> return PartialFn
1013 6 -> return PartialFn
1013 7 -> return Implicit
1014 7 -> return Implicit
1014 8 -> return Reflection
1015 8 -> return Reflection
1016+ 9 -> return ErrorHandler
1015 _ -> error "Corrupted binary data for FnOpt"
1017 _ -> error "Corrupted binary data for FnOpt"
1017instance Binary Fixity where
1019instance Binary Fixity where