18 lines
255 B
Haskell
18 lines
255 B
Haskell
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)
|