git.iko.soy/distributed-process
on master help sign in
Hide catch only for base < 4.6
bb18101Edsko de Vries
network-transport/ChangeLog+4
@@ -1,3 +1,7 @@
1+2012-07-16 Edsko de Vries <edsko@well-typed.com> 0.2.0.1
2+
3+* Hide catch only for base < 4.6
4+
12012-07-07 Edsko de Vries <edsko@well-typed.com> 0.2.0
52012-07-07 Edsko de Vries <edsko@well-typed.com> 0.2.0
2
6
3* Initial release.
7* Initial release.
network-transport/network-transport.cabal+3−2
@@ -1,5 +1,5 @@
1Name: network-transport
1Name: network-transport
2−Version: 0.2.0
2+Version: 0.2.0.1
3Cabal-Version: >=1.6
3Cabal-Version: >=1.6
4Build-Type: Simple
4Build-Type: Simple
5License: BSD3
5License: BSD3
@@ -75,6 +75,7 @@ Library
75 RankNTypes,
75 RankNTypes,
76 ScopedTypeVariables,
76 ScopedTypeVariables,
77 DeriveDataTypeable,
77 DeriveDataTypeable,
78− GeneralizedNewtypeDeriving
78+ GeneralizedNewtypeDeriving,
79+ CPP
79 GHC-Options: -Wall -fno-warn-unused-do-bind
80 GHC-Options: -Wall -fno-warn-unused-do-bind
80 HS-Source-Dirs: src
81 HS-Source-Dirs: src
network-transport/src/Network/Transport/Internal.hs+3
@@ -18,7 +18,10 @@ module Network.Transport.Internal ( -- * Encoders/decoders
18 , tlog
18 , tlog
19 ) where
19 ) where
20
20
21+#if ! MIN_VERSION_base(4,6,0)
21import Prelude hiding (catch)
22import Prelude hiding (catch)
23+#endif
24+
22import Foreign.Storable (pokeByteOff, peekByteOff)
25import Foreign.Storable (pokeByteOff, peekByteOff)
23import Foreign.C (CInt(..), CShort(..))
26import Foreign.C (CInt(..), CShort(..))
24import Foreign.ForeignPtr (withForeignPtr)
27import Foreign.ForeignPtr (withForeignPtr)