pwm/fsm

State machine example.

A simple state machine example in Haskell

To run

$ stack ghci
> :l fsm.hs
> run myDay Asleep [Alarm, Eat, Dress, GoToWork, Think, Think, Yawn, Coffee, Think, Yawn]
Just Cafe
> run myDay Work [WatchTV]
Nothing

The machine