testsuite/tests/rename/should_fail/T5892b.hs


1
2
3
4
5
6
7
8
9
10
11

{-# LANGUAGE RecordWildCards #-}
module T5892b where

import Data.Tree ( Tree( Node, rootLabel ))
-- Not importing field 'subForest'

Node{..} = Node [] []
-- Binds 'rootLabel' only

foo = T5892b.rootLabel
bar = T5892b.subForest