path: root/testsuite/tests/partial-sigs/should_fail/T10999.hs

module T10999 where

import qualified Data.Set as Set

f :: () -> _
f _ = Set.fromList undefined

g = map fst $ Set.toList $ f ()