path: root/testsuite/tests/warnings/should_compile/T18862a.hs

{-# LANGUAGE NoTypeOperators #-}

module T18862a where

f :: (a ~ b) => a -> b
f = id