Cleanup

2022-06-02 10:31:22 +01:00
parent e112006b46
commit c4fc044845
7 changed files with 37 additions and 37 deletions
@@ -51,15 +51,16 @@ putTerminal f = plGenUpdate ?~ g $ ps0PushPS (PutButton termButton)
        )
 termButton :: Button
 termButton = Button
-        { _btPict = const mempty
-        , _btPos = 0
-        , _btRot = 0
-        , _btEvent = displayTerminalMessage . _btID
-        , _btID = 0
-        , _btText = "TERMINAL"
-        , _btState = BtOff
-        , _btTerminalParams = const $ TerminalParams [] [] 10 "TERMINAL" Nothing Nothing [] []
-        }
+    { _btPict = const mempty
+    , _btPos = 0
+    , _btRot = 0
+    , _btEvent = displayTerminalMessage . _btID
+    , _btID = 0
+    , _btText = "TERMINAL"
+    , _btState = BtOff
+    , _btTerminalParams = const $ TerminalParams [] [] 10 "TERMINAL" Nothing Nothing [] []
+    , _btName = ""
+    }


 terminalColor :: Color