repos / handle-examples.hs.git

WeatherProvider.hs

 1module WeatherProvider where
 2
 3type Temperature = Int
 4data WeatherData = WeatherData { temperature :: Temperature }
 5
 6type Location = String
 7type Day = String
 8
 9-- | The interface of `WeatherProvider` with available methods.
10data Handle = Handle
11  { getWeatherData :: Location -> Day -> IO WeatherData
12  }