git.iko.soy/streamly
on 552b585 help sign in
streamly/src/Streamly/Examples/SearchEngineQuery.hs
19 lines 688 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 runSerialT $ google <|> bing <|> duckduckgo
12 putStrLn "\nUsing parallel applicative zip"
13 runZipAsync $ (,,) <$> pure google <*> pure bing <*> pure duckduckgo
15 where
16 get s = liftIO (httpNoBody (parseRequest_ s) >> putStrLn (show s))
17 google = get "https://www.google.com/search?q=haskell"
18 bing = get "https://www.bing.com/search?q=haskell"
19 duckduckgo = get "https://www.duckduckgo.com/?q=haskell"