import Data.Row
import HandleRow
-import qualified WindProvider as W
-import qualified TemperatureProvider as T
+import qualified WindProvider
+import qualified TemperatureProvider
import QueryTypes
data WeatherData = WeatherData { temperature :: T.Temperature, wind :: W.WindSpeed }
-- We union the methods of providers and extend it with a common method.
-type Methods = "getWeatherData" .== (Location -> Day -> IO WeatherData) .+ W.Methods .+ T.Methods
+type Methods = ("getWeatherData" .== (Location -> Day -> IO WeatherData))
+ .+ WindProvider.Methods
+ .+ TemperatureProvider.Methods
type Handle = HandleRow Methods