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

formatting

Browse Source
This commit is contained in:
minco
2025-08-02 11:00:19 +09:00
parent 15a1b37646
commit 7ae783d19d
3 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
sample-cmd/say3.mcf
View File

@@ -1 +0,0 @@
say 6

4
src/OneCommand/Generator.hs
View File

@@ -15,6 +15,8 @@ data CommandBlock = CommandBlock
, _pos :: Pos , _pos :: Pos
} deriving (Show) } deriving (Show)
makeLenses ''CommandBlock
defaultCommandBlock :: CommandBlock defaultCommandBlock :: CommandBlock
defaultCommandBlock = CommandBlock Impulse "" defaultPos defaultCommandBlock = CommandBlock Impulse "" defaultPos
@@ -25,8 +27,6 @@ instance Show CommandBlockType where
Repeating -> "repeating_command_block" Repeating -> "repeating_command_block"
Redstone -> "redstone_block" -- quick-dirty Redstone -> "redstone_block" -- quick-dirty
makeLenses ''CommandBlock
generateCommandChain :: ChainType -> [String] -> [CommandBlock] generateCommandChain :: ChainType -> [String] -> [CommandBlock]
generateCommandChain ct = zipWith genCommand [0..] generateCommandChain ct = zipWith genCommand [0..]
where where

4
src/OneCommand/PosUtil.hs
View File

@@ -24,10 +24,10 @@ data Pos = Pos
, _scope :: PosScope , _scope :: PosScope
} deriving (Show, Eq) } deriving (Show, Eq)
makeLenses ''Pos
defaultPos :: Pos defaultPos :: Pos
defaultPos = Pos (Vec3i 0 0 0) CommandChainScope defaultPos = Pos (Vec3i 0 0 0) CommandChainScope
toRelativeStr :: Vec3i -> String toRelativeStr :: Vec3i -> String
toRelativeStr (Vec3i x y z) = [i|~#{x} ~#{y} ~#{z}|] toRelativeStr (Vec3i x y z) = [i|~#{x} ~#{y} ~#{z}|]
makeLenses ''Pos