repos / handle-examples.hs.git

SuperWeatherProvider.hs

 1module SuperWeatherProvider where
 2
 3import WeatherProvider
 4
 5new :: Handle
 6new = Handle
 7  { getWeatherData = getSuperWeatherData
 8  }
 9
10-- | This is some concrete implementation `WeatherProvider` interface
11getSuperWeatherData :: Location -> Day -> IO WeatherData
12getSuperWeatherData _ _ = return $ WeatherData 30