whole map..

src/Main.hs

@@ -405,7 +405,7 @@ draw = do
                                         1,  0, 0, 0
                                       , 0,  0, 1, 0
                                       , 0,  1, 0, 0
-                                      ,-1, -1, -5, 1
+                                      ,-5, -10, -10, 1
                                       ]
         V.unsafeWith model $ \ptr -> GL.glUniformMatrix4fv mmat 1 0 ptr
         GL.bindBuffer GL.ArrayBuffer GL.$= Just map'

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]