Allow terminals to block input

2022-06-07 22:56:20 +01:00
parent e85bd36fe4
commit c31f398fab
8 changed files with 48 additions and 27 deletions
@@ -939,7 +939,8 @@ data Block = Block
    , _blMaterial :: BlockMaterial
    }
 data BlockMaterial = WoodBlock | DirtBlock | StoneBlock | GlassBlock | MetalBlock
-data TerminalStatus = Connected | Disconnected
+data TerminalStatus = TerminalOff | TerminalBusy | TerminalReady
+  deriving (Eq,Ord,Show)
 data TerminalInput = TerminalInput
    { _tiText   :: T.Text
    , _tiFocus  :: Bool