12 lines
300 B
Haskell
12 lines
300 B
Haskell
module Dodge.TmTm where
|
|
|
|
import Control.Lens
|
|
import Dodge.Data.Terminal
|
|
|
|
doTmTm :: TmTm -> Terminal -> Terminal
|
|
doTmTm tmtm = case tmtm of
|
|
TmTmClearDisplayedLines -> tmDisplayedLines .~ []
|
|
TmTmSetStatus s -> tmStatus .~ s
|
|
TmId -> id
|
|
TmTmSetPartialCommand ms -> tmPartialCommand .~ ms
|