1622e3ab6b
`git grep -I --name-only -z -e '' | xargs -0 sed -i 's/[ \t]\+\(\r\?\)$/\1/'` Remember to setup your editor so that these are automatically removed :)
20 lines
391 B
Haskell
20 lines
391 B
Haskell
package State(
|
|
State(..),
|
|
ftdiState') where
|
|
|
|
data State = IDLE
|
|
| START
|
|
| DATA (UInt (TLog 8))
|
|
| PARITY
|
|
| STOP
|
|
deriving (Bits, Eq, FShow)
|
|
|
|
ftdiState' :: State -> State
|
|
ftdiState' state =
|
|
case state of
|
|
IDLE -> START
|
|
START -> DATA(0)
|
|
DATA(7) -> PARITY
|
|
DATA(n) -> DATA(n+1)
|
|
PARITY -> STOP
|
|
STOP -> IDLE |