toMessage :: Env -> Event -> Maybe String
toMessage e (GameUpdate NewGame)   = Just $ "You delve underground, searching for your ancestors' sword."
toMessage :: Env -> Event -> Maybe String
toMessage e (GameUpdate NewGame)   = Just $ "You delve underground, searching for your ancestors' sword."
toMessage e (GameUpdate NewGame)   = Just $ "You delve underground, searching for your ancestors' sword."