Cleanup unused datatypes

2025-08-19 18:11:31 +01:00
parent e1cfe7e163
commit 1cfb581e15
4 changed files with 4 additions and 69 deletions
@@ -218,28 +218,3 @@ scrollRBOption dy ymax
    | dy < 0 = min (ymax -1) . subtract dy
    | dy > 0 = max 0 . subtract dy
    | otherwise = id
-
--scrollCommands :: Terminal -> [TerminalCommand]
--scrollCommands = (nullCommand :) . _tmScrollCommands
-
--scrollCommandStrings :: World -> Terminal -> [String]
--scrollCommandStrings w tm = case tm ^? tmPartialCommand . _Just of
--    Nothing -> map _tcString $ scrollCommands tm
--    Just tc -> "" : map tail (getArguments tc tm w)
-
--getArguments' :: TerminalCommand -> Terminal -> World -> [String]
--getArguments' tc tm = ("" :) . getArguments tc tm
-
--nullCommand :: TerminalCommand
--nullCommand =
--    TerminalCommand
--        { _tcString = ""
--        , _tcAlias = []
--        , _tcHelp = ""
--        , _tcEffect = TerminalCommandEffectNone -- \_ _ -> NoArguments []
--        }
-
--getArguments :: TerminalCommand -> Terminal -> World -> [String]
--getArguments tc tm w = case doTerminalCommandEffect (_tcEffect tc) tm w of
--    NoArguments{} -> []
--    OneArgument _ m -> map (' ' :) $ M.keys m