msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

haddock bug workaround

Browse Source
This commit is contained in:
hallgren
2013-03-26 13:14:37 +00:00
parent dca51e7417
commit 9faa3407ab
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/runtime/haskell/Data/Binary.hs
View File

@@ -368,7 +368,7 @@ instance Binary Word where
put (b .|. 0x80) put (b .|. 0x80)
put (c .|. 0x80) put (c .|. 0x80)
put d put d
-- #if WORD_SIZE_IN_BITS < 64 -- -- #if WORD_SIZE_IN_BITS < 64
| otherwise = do put (a .|. 0x80) | otherwise = do put (a .|. 0x80)
put (b .|. 0x80) put (b .|. 0x80)
put (c .|. 0x80) put (c .|. 0x80)