@@ -353,18 +353,22 @@ instance Binary Const where
353353 put x1
354354 Str x1 -> do putWord8 4
355355 put x1
356− IType -> putWord8 5
357− BIType -> putWord8 6
358− FlType -> putWord8 7
359− ChType -> putWord8 8
360− StrType -> putWord8 9
361− PtrType -> putWord8 10
362− Forgot -> putWord8 11
363−
364− B8Type -> putWord8 12
365− B16Type -> putWord8 13
366− B32Type -> putWord8 14
367− B64Type -> putWord8 15
356+ B8 x1 -> putWord8 5 >> put x1
357+ B16 x1 -> putWord8 6 >> put x1
358+ B32 x1 -> putWord8 7 >> put x1
359+ B64 x1 -> putWord8 8 >> put x1
360+
361+ IType -> putWord8 9
362+ BIType -> putWord8 10
363+ FlType -> putWord8 11
364+ ChType -> putWord8 12
365+ StrType -> putWord8 13
366+ PtrType -> putWord8 14
367+ Forgot -> putWord8 15
368+ B8Type -> putWord8 16
369+ B16Type -> putWord8 17
370+ B32Type -> putWord8 18
371+ B64Type -> putWord8 19
368372 get
369373 = do i <- getWord8
370374 case i of
@@ -378,18 +382,23 @@ instance Binary Const where
378382 return (Ch x1)
379383 4 -> do x1 <- get
380384 return (Str x1)
381− 5 -> return IType
382− 6 -> return BIType
383− 7 -> return FlType
384− 8 -> return ChType
385− 9 -> return StrType
386− 10 -> return PtrType
387− 11 -> return Forgot
388−
389− 12 -> return B8Type
390− 13 -> return B16Type
391− 14 -> return B32Type
392− 15 -> return B64Type
385+ 5 -> fmap B8 get
386+ 6 -> fmap B16 get
387+ 7 -> fmap B32 get
388+ 8 -> fmap B64 get
389+
390+ 9 -> return IType
391+ 10 -> return BIType
392+ 11 -> return FlType
393+ 12 -> return ChType
394+ 13 -> return StrType
395+ 14 -> return PtrType
396+ 15 -> return Forgot
397+
398+ 16 -> return B8Type
399+ 17 -> return B16Type
400+ 18 -> return B32Type
401+ 19 -> return B64Type
393402
394403 _ -> error "Corrupted binary data for Const"
395404