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