@@ -1,4 +1,4 @@
1−{-# LANGUAGE ExplicitForAll, ScopedTypeVariables #-}
1+{-# LANGUAGE CPP, ExplicitForAll, ScopedTypeVariables #-}
22
33module Control.Distributed.Process (
44 -- * Processes
@@ -27,8 +27,6 @@ module Control.Distributed.Process (
2727import qualified Network.Transport as Trans
2828import Network.Transport (Transport)
2929
30−import qualified Data.ByteString.Lazy.Char8 as BS
31−import Data.ByteString.Lazy.Char8 (ByteString)
3230import qualified Data.IntMap as IntMap
3331import Data.IntMap (IntMap)
3432import Control.Applicative
@@ -41,6 +39,14 @@ import Data.Typeable
4139
4240import Debug.Trace
4341
42+#ifndef LAZY
43+import qualified Data.ByteString.Char8 as BS
44+import Data.ByteString.Char8 (ByteString)
45+#else
46+import qualified Data.ByteString.Lazy.Char8 as BS
47+import Data.ByteString.Lazy.Char8 (ByteString)
48+#endif
49+
4450------------------------
4551-- Cloud Haskell layer
4652--