Cleanup
This commit is contained in:
@@ -8,3 +8,4 @@ doTmTm tmtm = case tmtm of
|
||||
TmTmClearDisplayedLines -> tmDisplayedLines .~ []
|
||||
TmTmSetStatus s -> tmStatus .~ s
|
||||
TmId -> id
|
||||
TmTmSetPartialCommand ms -> tmPartialCommand .~ ms
|
||||
|
||||
Reference in New Issue
Block a user