formatting

2025-08-02 11:00:19 +09:00
parent 15a1b37646
commit 7ae783d19d
3 changed files with 4 additions and 5 deletions
--- a/src/OneCommand/Generator.hs
+++ b/src/OneCommand/Generator.hs
@@ -15,6 +15,8 @@ data CommandBlock = CommandBlock
  , _pos :: Pos
  } deriving (Show)

+makeLenses ''CommandBlock
+
 defaultCommandBlock :: CommandBlock
 defaultCommandBlock = CommandBlock Impulse "" defaultPos

@@ -25,8 +27,6 @@ instance Show CommandBlockType where
    Repeating -> "repeating_command_block"
    Redstone -> "redstone_block" -- quick-dirty

-makeLenses ''CommandBlock
-
 generateCommandChain :: ChainType -> [String] -> [CommandBlock]
 generateCommandChain ct = zipWith genCommand [0..]
  where