wizard-wipeout/src-lib/Library/Map.hs

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)