@@ -46,7 +46,7 @@ data LevelPiece
46type Game = RWST Vty () World IO
46type Game = RWST Vty () World IO
48main :: IO ()
48main :: IO ()
49−main = do
49+main = do
50 vty <- mkVty def
50 vty <- mkVty def
51 level0 <- mkLevel 1
51 level0 <- mkLevel 1
52 let world0 = World (Dude (fst $ levelStart level0) (snd $ levelStart level0)) level0
52 let world0 = World (Dude (fst $ levelStart level0) (snd $ levelStart level0)) level0