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

19 lines
255 B
Haskell
Raw Normal View History

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)