repos / handle-examples.hs.git


handle-examples.hs.git / backpack-handles / domain
Evgenii Akentev  ·  2021-01-07

WeatherReporter.hsig

 1signature WeatherReporter where
 2
 3import qualified WeatherProvider
 4
 5type WeatherReport = String
 6
 7data Handle = Handle { weatherProvider :: WeatherProvider.Handle }
 8
 9-- | This is domain logic. It uses `WeatherProvider` to get the actual data.
10getCurrentWeatherReportInLondon :: Handle -> IO WeatherReport