module Library.Map where import Data.Matrix import Library.Types prettyPrintMap :: ServerMap -> IO () prettyPrintMap tilemap = do mapM_ (\row -> do mapM_ (putStr . show) row putStr "\n" ) (toLists tilemap)