Commit 3eccd885 authored by Jurriën Stutterheim's avatar Jurriën Stutterheim

Fix Auction example

parent acf43a66
......@@ -2,13 +2,15 @@ module Auction
import iTasks
import iTasks.API.Extensions.Admin.UserAdmin
import iTasks.Framework.Tonic
import iTasks.API.Extensions.Admin.TonicAdmin
import iTasks._Framework.Tonic
//:%s/<I\d*, E\d*>\|<\d*>//g
Start :: *World -> *World
Start world = startEngine [ publish "/" (WebApp []) (\_ -> runAuction)
, tonicPubTask "Auction"] world
, publish "/tonic" (WebApp []) (\_ -> tonicDashboard [])
] world
runAuction :: Task Void
......
This diff is collapsed.
Markdown is supported
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