git.iko.soy/distributed-process
on master help sign in
fixed up demotransport
4341d5dAdam Foltzer
examples/DemoTransport.hs+5−1
compare with master
unifiedsplit
@@ -1,4 +1,4 @@
1−{-# LANGUAGE NamedFieldPuns #-}
1+{-# LANGUAGE CPP, NamedFieldPuns #-}
2module Main where
2module Main where
3
3
4import Network.Transport
4import Network.Transport
@@ -9,7 +9,11 @@ import Network.Transport.TCP (mkTransport, TCPConfig (..))
9import Control.Concurrent
9import Control.Concurrent
10import Control.Monad
10import Control.Monad
11
11
12+#ifndef LAZY
13+import qualified Data.ByteString.Char8 as BS
14+#else
12import qualified Data.ByteString.Lazy.Char8 as BS
15import qualified Data.ByteString.Lazy.Char8 as BS
16+#endif
13
17
14import Data.IORef
18import Data.IORef
15import Debug.Trace
19import Debug.Trace