repos / handle-examples.hs.git

Main.hs

 1module Main where
 2
 3import qualified WeatherProvider
 4import qualified WeatherReporter
 5
 6main :: IO ()
 7main = do
 8  let wph = WeatherProvider.new
 9  let wrh = WeatherReporter.new wph
10  weatherReportInLondon <- WeatherReporter.getCurrentWeatherReportInLondon wrh
11  putStrLn weatherReportInLondon