5 :: OpenWeatherResponse =
6 { main :: OpenWeatherResponseMain
7 , weather :: [OpenWeatherResponseWeather]
10 :: OpenWeatherResponseWeather =
13 , description :: String
16 :: OpenWeatherResponseMain =
24 derive class iTask OpenWeatherResponseMain, OpenWeatherResponseWeather, OpenWeatherResponse
25 Start w = doTasks (viewInformation [] v <<@ Title "Weather in Nijmegen from openweather.com") w
27 v = {temp=18.4, pressure=1050, humidity=60, temp_min=12.5, temp_max=24.1}