aadit/tetris-cli
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Derp city over here

Browse source
This commit is contained in:
Sam Tay 2017-06-17 16:01:51 -04:00
parent c49028a04c
commit 80102d5a4a
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/UI/Game.hs
View file

@ -89,7 +89,7 @@ drawGrid g = withBorderStyle BS.unicodeBold
blkMap = M.fromList [(c, Just $ g ^. block ^. shape) | c <- g ^. block ^. to coords]
emptyMap :: Map Coord (Maybe a)
emptyMap = M.fromList [((x,y), Nothing) | x <- [1..boardWidth], y <- [1,boardHeight]]
emptyMap = M.fromList [((x,y), Nothing) | x <- [1..boardWidth], y <- [1..boardHeight]]
drawMCell :: Maybe Tetrimino -> Widget Name
drawMCell Nothing = withAttr emptyAttr cw