git.iko.soy/streamly
on dffb02f help sign in
streamly/src/Streamly/Examples/SearchEngineQuery.hs
21 lines 797 B history raw
1module Streamly.Examples.SearchEngineQuery where
3import Streamly
4import Network.HTTP.Simple
6-- Runs three search engine queries in parallel.
7searchEngineQuery :: IO ()
8searchEngineQuery = do
9 putStrLn "Using parallel alternative"
10 runParallelT $ google <> bing <> duckduckgo
12 putStrLn "\nUsing parallel applicative zip"
13 runZipAsync $ (,,) <$> google <*> bing <*> duckduckgo
15 where
16 get :: IsStream t => String -> t IO ()
17 google, bing, duckduckgo :: IsStream t => t IO ()
18 get s = adapt . serially $ liftIO (httpNoBody (parseRequest_ s) >> putStrLn (show s))
19 google = get "https://www.google.com/search?q=haskell"
20 bing = get "https://www.bing.com/search?q=haskell"
21 duckduckgo = get "https://www.duckduckgo.com/?q=haskell"