repos / handle-examples.hs.git

SuperWeatherProvider.hs

 1module SuperWeatherProvider where
 2
 3type Temperature = Int
 4data WeatherData = WeatherData { temperature :: Temperature }
 5
 6type Location = String
 7type Day = String
 8
 9data Handle = Handle
10
11new :: Handle
12new = Handle
13
14-- | This is some concrete implementation `WeatherProvider` interface
15getWeatherData :: Handle -> Location -> Day -> IO WeatherData
16getWeatherData _ _ _ = return $ WeatherData 30