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