Evgenii Akentev
·
2021-09-08
SuperWindProvider.hs
1{-# LANGUAGE OverloadedLabels #-}
2module SuperWindProvider where
3
4import Data.Row
5import WindProvider
6import QueryTypes
7
8new :: Handle
9new = #getWindData .== getSuperWindData
10
11getSuperWindData :: Location -> Day -> IO WindSpeed
12getSuperWindData _ _ = return 5