repos / handle-examples.hs.git


handle-examples.hs.git / vinyl-handle / impl
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