Commit 146ef4a0 authored by Tim Steenvoorden's avatar Tim Steenvoorden
Browse files

first working example

parent d4eece1a
old/
main-data/
default:
cpm main.prj
force:
cpm main.prj --force
clean:
rm -rf sapl Clean\ System\ Files main.exe main-data
.PHONY: clean
This diff is collapsed.
module Main
import iTasks
import iTasks.API.Extensions.Clock
Start world =
startEngine
[ publish "/" (WebApp []) (\_ -> viewTime)
] world
viewTime :: Task Time
viewTime = viewSharedInformation "The current time is:" [ViewWith AnalogClock] currentTime
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment