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