diff --git a/src/Test.hs b/src/Test.hs index 8ead8cc..4406c86 100644 --- a/src/Test.hs +++ b/src/Test.hs @@ -9,7 +9,7 @@ import qualified Graphics.Rendering.OpenGL as GL hiding (get) import Control.Monad (when, void) import Control.Monad.IO.Class (liftIO) -import Data.Matrix (toLists) +import Data.Matrix as M (toLists, (!)) import Data.Ecstasy as E import NanoVG hiding (V2(..)) @@ -32,7 +32,7 @@ loadMap = do matrix <- liftIO $ buildHallFloorIO fc (nws, _) <- yieldSystemT (worldState ud) $ do void $ newEntity $ defEntity - { pos = Just (V2 20 20) + { pos = Just (V2 20.5 20.5) , vel = Just (V2 0 0) , player = Just True }