git.iko.soy/vty
on master help sign in
Rogue: main: remove redundant invocation of updateDisplay
d4d4aa3Jonathan Daugherty
test/Rogue.hs+1−1
compare with master
unifiedsplit
@@ -46,7 +46,7 @@ main = do
46 vty <- mkVty def
46 vty <- mkVty def
47 level0 <- mkLevel 1
47 level0 <- mkLevel 1
48 let world0 = World (Player (fst $ levelStart level0) (snd $ levelStart level0)) level0
48 let world0 = World (Player (fst $ levelStart level0) (snd $ levelStart level0)) level0
49− (_finalWorld, ()) <- execRWST (play >> updateDisplay) vty world0
49+ (_finalWorld, ()) <- execRWST play vty world0
50 shutdown vty
50 shutdown vty
51
51
52mkLevel :: Int -> IO Level
52mkLevel :: Int -> IO Level