Refactor, try to limit dependencies
This commit is contained in:
+4
-4
@@ -1,10 +1,10 @@
|
||||
module Dodge.TmTm
|
||||
where
|
||||
import Dodge.Data.Terminal
|
||||
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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user