summaryrefslogtreecommitdiff
path: root/testsuite/tests/typecheck/should_compile/T7827.hs
blob: 230b890227bc4403cc90bec6eaa140132885c6ec (plain)
1
2
3
4
5
{-# LANGUAGE ScopedTypeVariables #-}
module T7827 where

bug :: a -> ()
bug ((_ :: a) :: a) = ()