phfroidmont/minesweeper-haskell
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make Board a type synonym isntead of a newtype

Browse source
This commit is contained in:
Paul-Henri Froidmont 2019-11-24 17:06:51 +01:00 • committed by Paul-Henri Froidmont
parent 4030ae7699
commit 0b20ec98e3
3 changed files with 70 additions and 85 deletions
Download patch file Download diff file Expand all files Collapse all files

12
app/Main.hs
View file

@ -3,8 +3,10 @@ module Main where
import Lib
main :: IO ()
main = putStrLn $ printBoard (Board
[ [Bomb Revealed, Value 1 Revealed, Value 0 Revealed]
, [Value 1 Revealed, Value 1 Revealed, Value 0 Revealed]
, [Value 0 Revealed, Value 0 Revealed, Value 0 Revealed]
])
main =
putStrLn $
printBoard
[ [Bomb Revealed, Value 1 Revealed, Value 0 Revealed]
, [Value 1 Revealed, Value 1 Revealed, Value 0 Revealed]
, [Value 0 Revealed, Value 0 Revealed, Value 0 Revealed]
]