whole map..

2014-01-04 14:20:26 +01:00
parent f23b4e38fd
commit cde5231e6a
2 changed files with 3 additions and 3 deletions
--- a/src/Map/Map.hs
+++ b/src/Map/Map.hs
@ -240,8 +240,8 @@ testMapTemplate2 = T.transpose [
 testmap :: IO PlayMap
 testmap = do
                g <- getStdGen
-                rawMap <- return $ parseTemplate (randoms g) (T.concat testMapTemplate2)
-                return $ listArray ((0,0),(9,1)) rawMap
+                rawMap <- return $ parseTemplate (randoms g) (T.concat testMapTemplate)
+                return $ listArray ((0,0),(19,19)) rawMap


 parseTemplate :: [Int] -> Text -> [MapEntry]