Drezil/pioneers
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

changed TMVar to TVar

Browse Source 
- compiles & runs again
This commit is contained in:
Stefan Dresselhaus
2014-05-17 12:57:49 +02:00
parent 27d7873595
commit 230e31bf63
4 changed files with 19 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/Render/Render.hs
View File

@ -12,7 +12,7 @@ import qualified Linear as L
import Control.Lens ((^.))
import Control.Monad.RWS.Strict (liftIO)
import qualified Control.Monad.RWS.Strict as RWS (get)
import Control.Concurrent.STM.TMVar (readTMVar)
import Control.Concurrent.STM.TVar (readTVarIO)
import Control.Concurrent.STM (atomically)
import Data.Distributive (distribute, collect)
-- FFI
@ -366,7 +366,7 @@ drawMap = do
render :: Pioneers ()
render = do
state <- RWS.get
cam <- liftIO $ atomically $ readTMVar (state ^. camera)
cam <- liftIO $ readTVarIO (state ^. camera)
let xa = cam ^. xAngle
ya = cam ^. yAngle
frust = cam ^. Types.frustum