Hide catch only for base < 4.6
commitbb181015cf4dccc22d6df11ab9bfd9f462c8f61e
authorEdsko de Vries <edsko@edsko.net>
dateMon 16 Jul 2012, 13:34 (14 years ago)
parentaa7377b
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+
152012-07-07 Edsko de Vries <edsko@well-typed.com> 0.2.0
26
37* Initial release.
network-transport/network-transport.cabal+3−2
@@ -1,5 +1,5 @@
11Name: network-transport
2−Version: 0.2.0
2+Version: 0.2.0.1
33Cabal-Version: >=1.6
44Build-Type: Simple
55License: BSD3
@@ -75,6 +75,7 @@ Library
7575 RankNTypes,
7676 ScopedTypeVariables,
7777 DeriveDataTypeable,
78− GeneralizedNewtypeDeriving
78+ GeneralizedNewtypeDeriving,
79+ CPP
7980 GHC-Options: -Wall -fno-warn-unused-do-bind
8081 HS-Source-Dirs: src
network-transport/src/Network/Transport/Internal.hs+3
@@ -18,7 +18,10 @@ module Network.Transport.Internal ( -- * Encoders/decoders
1818 , tlog
1919 ) where
2020
21+#if ! MIN_VERSION_base(4,6,0)
2122import Prelude hiding (catch)
23+#endif
24+
2225import Foreign.Storable (pokeByteOff, peekByteOff)
2326import Foreign.C (CInt(..), CShort(..))
2427import Foreign.ForeignPtr (withForeignPtr)