blob: ebc04e5354e0cc86007d5398812732eeb2f9f23d (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
{-# LANGUAGE OverloadedStrings #-}
-- https://gist.github.com/michaelt/88e1fac12876857deefe
-- following
-- https://gist.github.com/gelisam/c769d186493221d7ebbe and associated controversy.
module Main where
import Prelude hiding (lines)
import Lens.Family
import Pipes
import Pipes.Group
import Pipes.HTTP
import Pipes.Text
import Pipes.Text.Encoding
import Pipes.Text.IO (toHandle,stdout)
import qualified System.IO as IO
import Data.Functor (void)
import qualified Data.Text as T
main = do
req <- parseUrl "https://gist.github.com/gelisam/c769d186493221d7ebbe"
-- "http://www.example.com"
-- "http://www.gutenberg.org/files/10/10-h/10-h.htm"
withManager tlsManagerSettings $ \m ->
withHTTP req m $ \resp -> void $ runEffect $
number_lines_of (responseBody resp ^. utf8 . lines) >-> toHandle IO.stdout
number_lines_of :: Monad m => FreeT (Producer Text m) m r -> Producer Text m r
number_lines_of = number_loop (1 :: Int) where
number_loop n free = do
fproducer <- lift $ runFreeT free
case fproducer of
Pure badbytes -> do
yield $ T.pack "\n"
return badbytes -- these could be inspected ...
Free p -> do
yield $ T.pack ("\n" ++ show n ++ " ")
next_free <- p
number_loop (n+1) next_free
|
