path: root/testsuite/tests/ghci.debugger/scripts/T10616.hs

{-# LANGUAGE PolyKinds  #-}

data D a = A | B

f d@A = const True d
f B = False