blob: 13d7c3f047c31c79047d254a80d5109690c56fcb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
{-# LANGUAGE RecordWildCards #-}
{-# OPTIONS_GHC -Werror #-}
module T5892a where
import Data.Tree ( Tree( Node, rootLabel ))
-- Not importing field 'subForest'
foo :: Tree [Int] -> Tree [Int]
foo (Node {..}) -- Pattern match does not bind 'subForest'
= let rootLabel = []
in Node {..} -- Hence warning here
|
