ghc-exactprint-0.5.1.0: tests/examples/ghc8/T10999.hs

module T10999 where

import qualified Data.Set as Set

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

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