repos / handle-examples.hs.git

handle-examples.hs.git / row-handle / impl
Add row-handle
13b140f
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