turnLeft :: Modifiers -> Position -> WormsAction ()
turnLeft _ _ = do
  snakeHead <- findObject "head" "head"
  setObjectCurrentPicture 8 snakeHead
  setObjectSpeed (-speedMod,0) snakeHead
turnLeft :: Modifiers -> Position -> WormsAction ()
turnLeft _ _ = do
  snakeHead <- findObject "head" "head"
  setObjectCurrentPicture 8 snakeHead
  setObjectSpeed (-speedMod,0) snakeHead
turnLeft _ _ = do
  snakeHead <- findObject "head" "head"
  setObjectCurrentPicture 8 snakeHead
  setObjectSpeed (-speedMod,0) snakeHead