Permalink
Browse files

Fixed test.hs

  • Loading branch information...
1 parent a20b9d5 commit 14257cccd38ec7ee7d8ae464dabed5e8de5f3120 @snoyberg committed Jan 11, 2011
Showing with 2 additions and 1 deletion.
  1. +2 −1 test.hs
View
3 test.hs
@@ -5,6 +5,7 @@ import Network
import qualified Data.ByteString as S
import qualified Data.ByteString.Lazy as L
import System.Environment.UTF8 (getArgs)
+import Network.Wai (ciOriginal)
main :: IO ()
main = withSocketsDo $ withHttpEnumerator $ do
@@ -20,7 +21,7 @@ main = withSocketsDo $ withHttpEnumerator $ do
#else
print sc
mapM_ (\(x, y) -> do
- S.putStr x
+ S.putStr $ ciOriginal x
putStr ": "
S.putStr y
putStrLn "") hs

0 comments on commit 14257cc

Please sign in to comment.