test.icl

   1 module test
   2
   3 import iTasks
   4
   5 :: OpenWeatherResponse =
   6         { main :: OpenWeatherResponseMain
   7         , weather :: [OpenWeatherResponseWeather]
   8         }
   9
  10 :: OpenWeatherResponseWeather =
  11         { id :: Int
  12         , main :: String
  13         , description :: String
  14         , icon :: String
  15         }
  16 :: OpenWeatherResponseMain =
  17         { temp :: Real
  18         , pressure :: Int
  19         , humidity :: Int
  20         , temp_min :: Real
  21         , temp_max :: Real
  22         }
  23
  24 derive class iTask OpenWeatherResponseMain, OpenWeatherResponseWeather, OpenWeatherResponse
  25 Start w = doTasks (viewInformation [] v <<@ Title "Weather in Nijmegen from openweather.com") w
  26
  27 v = {temp=18.4, pressure=1050, humidity=60, temp_min=12.5, temp_max=24.1}