Start work simplifying terminals, aim towards respawn terminals

2025-08-14 19:26:52 +01:00
parent 04c60151e1
commit 198b7acc78
6 changed files with 13 additions and 16 deletions
@@ -3,10 +3,8 @@ module Dodge.Terminal.Type (
    getMaxLinesTM,
 ) where

-import Dodge.Data.Terminal
+getPromptTM :: String
+getPromptTM = "> "

-getPromptTM :: TerminalType -> String
-getPromptTM _ = "> "
-
-getMaxLinesTM :: TerminalType -> Int
-getMaxLinesTM _ = 14
+getMaxLinesTM :: Int
+getMaxLinesTM = 14