cached-io-1.1.0.0: test/test-cachedIO.hs

module Main (
    main
    ) where

import Control.Concurrent.CachedIO (cachedIO)
import Data.List (isInfixOf)

crawlTheInternet :: IO [String]
crawlTheInternet = do
    putStrLn "Scanning pages.."
    putStrLn "Parsing HTML.."
    putStrLn "Following links.."
    return ["website about Haskell", "website about Ruby", "slashdot.org",
            "The Monad.Reader", "haskellwiki"]

searchEngine :: String -> IO [String] -> IO [String]
searchEngine query internet = do
    pages <- internet
    return $ filter (query `isInfixOf`) pages

main :: IO ()
main = do
    cachedInternet <- cachedIO 600 crawlTheInternet   -- 10 minute cache
    print =<< searchEngine "Haskell" cachedInternet
    print =<< searchEngine "C#" cachedInternet