Commit 8adef36c authored by Ömer Sinan Ağacan's avatar Ömer Sinan Ağacan
Browse files

Add test for #16038

parent 6d2f6df3
module A where
import B
data HsExpr id
= HsOverLit (HsOverLit id)
| HsBracketOut (HsExpr id)
deriving Eq
module A where
data HsExpr i
instance Eq i => Eq (HsExpr i)
module B where
import {-# SOURCE #-} A (HsExpr)
data HsOverLit id
= OverLit (HsExpr id)
deriving Eq
include $(TOP)/mk/
include $(TOP)/mk/
'$(TEST_HC)' $(TEST_HC_OPTS) -O -c A.hs-boot
'$(TEST_HC)' $(TEST_HC_OPTS) -O -c B.hs
# All `fEqHsExpr` bindings should be in one recursive group:
'$(TEST_HC)' $(TEST_HC_OPTS) -O -c A.hs -ddump-simpl -dsuppress-all | \
grep -e "^\$$fEqHsExpr" -e "Rec"
Rec {
end Rec }
[extra_files(['A.hs', 'A.hs-boot', 'B.hs'])],
['$MAKE -s --no-print-directory T16038'])
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment