fixed up demotransport
commit4341d5d9c1f18b8c917129c9a51db0c584a9d2b5
authorAdam Foltzer <acfoltzer@gmail.com>
dateFri 24 Feb 2012, 12:19 (15 years ago)
parent5395dd9
examples/DemoTransport.hs+5−1
@@ -1,4 +1,4 @@
1−{-# LANGUAGE NamedFieldPuns #-}
1+{-# LANGUAGE CPP, NamedFieldPuns #-}
22module Main where
33
44import Network.Transport
@@ -9,7 +9,11 @@ import Network.Transport.TCP (mkTransport, TCPConfig (..))
99import Control.Concurrent
1010import Control.Monad
1111
12+#ifndef LAZY
13+import qualified Data.ByteString.Char8 as BS
14+#else
1215import qualified Data.ByteString.Lazy.Char8 as BS
16+#endif
1317
1418import Data.IORef
1519import Debug.Trace