repos / handle-examples.hs.git

Main.hs

 1module Main where
 2
 3import qualified SuperWeatherProvider
 4import qualified SuperWeatherReporter
 5
 6-- | This is an actual application where we use
 7-- our concrete implementation of `WeatherProvider`.
 8main :: IO ()
 9main = do
10  let wph = SuperWeatherProvider.new
11  let wpr = SuperWeatherReporter.Handle wph
12  weatherReportInLondon <- SuperWeatherReporter.getCurrentWeatherReportInLondon wpr
13  putStrLn weatherReportInLondon