smaller adjustments

This commit is contained in:
nek0 2018-02-25 02:03:46 +01:00
parent efc3a2f7d8
commit 917351aee1

View file

@ -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
}