Permalink
Browse files

Repaired sinkFile example

  • Loading branch information...
1 parent b67967c commit 658b3831635de9efdcbe220394caf6664c6993e5 @michaelt michaelt committed Jan 2, 2012
Showing with 3 additions and 2 deletions.
  1. +3 −2 Network/HTTP/Conduit.hs
@@ -18,13 +18,14 @@
-- > import Data.Conduit.Binary (sinkFile)
-- > import Network.HTTP.Conduit
-- > import System.IO
--- >
+-- > import qualified Data.Conduit as C
+-- >
-- > main :: IO ()
-- > main = do
-- > request <- parseUrl "http://google.com/"
-- > withManager $ \manager -> do
-- > let handler _ _ bsrc = bsrc C.$$ sinkFile "google.html"
--- > run_ $ httpRedirect request handler manager
+-- > httpRedirect request handler manager
--
-- The following headers are automatically set by this module, and should not
-- be added to 'requestHeaders':

0 comments on commit 658b383

Please sign in to comment.