repos / handle-examples.hs.git

Main.hs

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