mincomk/onecommand-hs
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix: typing order

Browse Source
This commit is contained in:
minco
2025-08-17 21:40:44 +09:00
parent 7ae783d19d
commit 9e41c15469
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/OneCommand/Generator.hs
View File

@@ -9,6 +9,13 @@ import Control.Lens
data CommandBlockType = Impulse | Chain | Repeating | Redstone deriving (Eq) 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 data CommandBlock = CommandBlock
{ _commandBlockType :: CommandBlockType { _commandBlockType :: CommandBlockType
, _command :: String , _command :: String
@@ -20,12 +27,6 @@ makeLenses ''CommandBlock
defaultCommandBlock :: CommandBlock defaultCommandBlock :: CommandBlock
defaultCommandBlock = CommandBlock Impulse "" defaultPos 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 :: ChainType -> [String] -> [CommandBlock]
generateCommandChain ct = zipWith genCommand [0..] generateCommandChain ct = zipWith genCommand [0..]