diff options
| author | Thomas Miedema <thomasmiedema@gmail.com> | 2014-09-23 08:44:45 -0500 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2014-09-23 08:44:46 -0500 |
| commit | 330bb3ef856166d18d959b377f12a51c2629b223 (patch) | |
| tree | 2beed4c0c3829747428f8b775a9e43eb84144544 /compiler/utils/Binary.hs | |
| parent | 2a743bbddd4de41a77af9b83ec4720cd013292cf (diff) | |
| download | haskell-330bb3ef856166d18d959b377f12a51c2629b223.tar.gz | |
Delete all /* ! __GLASGOW_HASKELL__ */ code
Summary:
```
git grep -l '\(#ifdef \|#if defined\)(\?__GLASGOW_HASKELL__)\?'
```
Test Plan: validate
Reviewers: rwbarton, hvr, austin
Reviewed By: rwbarton, hvr, austin
Subscribers: rwbarton, simonmar, ezyang, carter
Differential Revision: https://phabricator.haskell.org/D218
Diffstat (limited to 'compiler/utils/Binary.hs')
| -rw-r--r-- | compiler/utils/Binary.hs | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/compiler/utils/Binary.hs b/compiler/utils/Binary.hs index 53ee903f2f..ea53b31729 100644 --- a/compiler/utils/Binary.hs +++ b/compiler/utils/Binary.hs @@ -46,12 +46,9 @@ module Binary lazyGet, lazyPut, -#ifdef __GLASGOW_HASKELL__ - -- GHC only: ByteArray(..), getByteArray, putByteArray, -#endif UserData(..), getUserData, setUserData, newReadState, newWriteState, @@ -461,7 +458,6 @@ instance Binary DiffTime where get bh = do r <- get bh return $ fromRational r -#if defined(__GLASGOW_HASKELL__) || 1 --to quote binary-0.3 on this code idea, -- -- TODO This instance is not architecture portable. GMP stores numbers as @@ -553,7 +549,6 @@ indexByteArray a# n# = W8# (indexWord8Array# a# n#) instance (Integral a, Binary a) => Binary (Ratio a) where put_ bh (a :% b) = do put_ bh a; put_ bh b get bh = do a <- get bh; b <- get bh; return (a :% b) -#endif instance Binary (Bin a) where put_ bh (BinPtr i) = put_ bh (fromIntegral i :: Int32) |