path: root/testsuite/tests/unboxedsums/T14051a.hs

{-# LANGUAGE UnboxedSums #-}

module T14051a where

func :: s -> (# Bool | Bool #)
func _ = (# True | #)