@@ -46,7 +46,7 @@ data LevelPiece
4646type Game = RWST Vty () World IO
4747
4848main :: IO ()
49−main = do
49+main = do
5050 vty <- mkVty def
5151 level0 <- mkLevel 1
5252 let world0 = World (Dude (fst $ levelStart level0) (snd $ levelStart level0)) level0