From 9e41c15469e36cd0ea7b56a9765f6961aba19fbf Mon Sep 17 00:00:00 2001 From: minco Date: Sun, 17 Aug 2025 21:40:44 +0900 Subject: [PATCH] fix: typing order --- src/OneCommand/Generator.hs | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/src/OneCommand/Generator.hs b/src/OneCommand/Generator.hs index c49c5d7..f3ef355 100644 --- a/src/OneCommand/Generator.hs +++ b/src/OneCommand/Generator.hs @@ -9,6 +9,13 @@ import Control.Lens data CommandBlockType = Impulse | Chain | Repeating | Redstone deriving (Eq) +instance Show CommandBlockType where + show t = case t of + Impulse -> "command_block" + Chain -> "chain_command_block" + Repeating -> "repeating_command_block" + Redstone -> "redstone_block" -- quick-dirty + data CommandBlock = CommandBlock { _commandBlockType :: CommandBlockType , _command :: String @@ -20,12 +27,6 @@ makeLenses ''CommandBlock defaultCommandBlock :: CommandBlock defaultCommandBlock = CommandBlock Impulse "" defaultPos -instance Show CommandBlockType where - show t = case t of - Impulse -> "command_block" - Chain -> "chain_command_block" - Repeating -> "repeating_command_block" - Redstone -> "redstone_block" -- quick-dirty generateCommandChain :: ChainType -> [String] -> [CommandBlock] generateCommandChain ct = zipWith genCommand [0..]