Evgenii Akentev
·
2021-01-09
SuperTemperatureProvider.hs
1module SuperTemperatureProvider where
2
3import Data.Vinyl
4import TemperatureProvider
5import QueryTypes
6
7new :: Handle
8new = Field getSuperTemperatureData
9 :& RNil
10
11getSuperTemperatureData :: Location -> Day -> IO Temperature
12getSuperTemperatureData _ _ = return 30