Rogue: main: remove redundant invocation of updateDisplay
commitd4d4aa391c8da2ebda0548ea0b181a3320427fe7
authorJonathan Daugherty <cygnus@foobox.com>
dateFri 1 Aug 2014, 15:39 (12 years ago)
parent39b31c6
test/Rogue.hs+1−1
@@ -46,7 +46,7 @@ main = do
4646 vty <- mkVty def
4747 level0 <- mkLevel 1
4848 let world0 = World (Player (fst $ levelStart level0) (snd $ levelStart level0)) level0
49− (_finalWorld, ()) <- execRWST (play >> updateDisplay) vty world0
49+ (_finalWorld, ()) <- execRWST play vty world0
5050 shutdown vty
5151
5252mkLevel :: Int -> IO Level