Implmement display system
This commit is contained in:
parent
3780e967cd
commit
ebb27755d2
2 changed files with 26 additions and 1 deletions
|
|
@ -59,4 +59,5 @@ mainSF = proc () -> do
|
|||
-- undefined is safe here because the first frame is guaranteed to be a tick
|
||||
state <- hold undefined -< state'
|
||||
|
||||
returnA -< ()
|
||||
-- Display the current state
|
||||
displayState -< state
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue