nek0/tracer
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

smaller adjustments

Browse source
This commit is contained in:
nek0 2018-02-25 02:03:46 +01:00
parent efc3a2f7d8
commit 917351aee1
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Test.hs
View file

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