ghc-exactprint-0.5.3.1: tests/examples/ghc80/T10999.hs

module T10999 where

import qualified Data.Set as Set

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

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