<commit_before>import Control.Monad.State
import Data.Aeson (encode)
import qualified Data.Map as Map
import Data.Maybe (fromJust)
import Data.UUID (fromString)
import qualified Player
import qualified World
import qualified WorldView

initWorld :: World.WorldState ()
initWorld = lift Player.empty >>= World.spawn >>
            lift Player.empty >>= World.spawn

loop :: World.WorldState ()
loop = do
  world <- get
  let uuid = head $ Map.keys $ World.players world
  World.move uuid
  World.tick
<commit_msg>Removed unused imports.<commit_after>import Control.Monad.State
import Data.Aeson (encode)
import qualified Data.Map as Map
import qualified Player
import qualified World
import qualified WorldView

initWorld :: World.WorldState ()
initWorld = lift Player.empty >>= World.spawn >>
            lift Player.empty >>= World.spawn

loop :: World.WorldState ()
loop = do
  world <- get
  let uuid = head $ Map.keys $ World.players world
  World.move uuid
  World.tick

{'fraction_non_alphanumeric': 0.09333333333333334, 'fraction_numerical': 0.0, 'mean_word_length': 3.9292929292929295, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 15, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '5742204', 'n_tokens_mistral': 282, 'n_tokens_neox': 282, 'n_words': 94}