title: couldn't match expected type (newtype)
body: <p>I'm working on a function </p>
  
  <pre><code>createTypeBoard :: (Int, Int) -&gt; CellType -&gt; Board
  </code></pre>
  
  <p>using these types</p>
  
  <pre><code>newtype Board = Board [(Cell, CellType)] deriving(Eq)
  
  data CellType  = Mine                
             | Flag                    
             | Void                     
             | Enumerated Int          
             | Undiscovered             
             deriving Eq
  
  type Cell = (Int, Int)
  </code></pre>
  
  <p>createTypeBoard (2,2) Mine should be: Board [((1,1), X), ((1,2), X), ((2,1), X), ((2,2), X)]</p>
  
  <p>(X is the show instance of Mine)</p>
  
  <p>my idea was to use zip:</p>
  
  <pre><code>createTypeBoars (a, b) c = zip (createCells (a, b)) [c]
  </code></pre>
  
  <p>but I keep getting an error</p>
  
  <pre><code>• Couldn't match expected type ‘Board’
                with actual type ‘[(Cell, CellType)]’
  • In the expression: zip (createCells (a, b)) [Flag]
    In an equation for ‘createTypeBoard’:
        createTypeBoard (a, b) Flag = zip (createCells (a, b)) [Flag]
  </code></pre>
  
  <p>Board basically is [(Cell, CellType)] so I don't really get what the problem is :(</p>