{-|
  True when the level is complete.
  A level is complete when all Goal tiles
  contain blocks.
-}
isComplete :: Level -> Bool
isComplete (Level _ _ _ _ _ goals blocks) =
  goals `S.isSubsetOf` blocks
isComplete :: Level -> Bool
isComplete (Level _ _ _ _ _ goals blocks) =
  goals `S.isSubsetOf` blocks
isComplete (Level _ _ _ _ _ goals blocks) =
  goals `S.isSubsetOf` blocks