repos / handle-examples.hs.git

SuperTemperatureProvider.hs

 1{-# LANGUAGE OverloadedLabels #-}
 2module SuperTemperatureProvider where
 3
 4import Data.Row
 5import TemperatureProvider
 6import QueryTypes
 7
 8new :: Handle
 9new = #getTemperatureData .== getSuperTemperatureData
10
11getSuperTemperatureData :: Location -> Day -> IO Temperature
12getSuperTemperatureData _ _ = return 30