@@ -1,5 +1,5 @@
2−import Signal.Time (every)
2+import Time (every)
4hand clr len time =
4hand clr len time =
5 let t = pi * time / 30 - pi / 2 in
5 let t = pi * time / 30 - pi / 2 in
@@ -10,4 +10,4 @@ clock t = collage 400 400 [ filled (rgb 96 176 224) $ ngon 12 110 (200, 200)
10 , hand black 100 (t/60)
10 , hand black 100 (t/60)
11 , hand black 60 (t/720) ]
11 , hand black 60 (t/720) ]
13−main = lift clock (every 1)
13+main = lift clock (every 1)