ghc-exactprint-1.14.0.0: tests/examples/pre-ghc910/records-compile.hs

{-# LANGUAGE PatternSynonyms #-}
module ShouldCompile where

pattern Single{x} = [x]

-- Selector
selector :: Int
selector = x [5]

update :: [String]
update = ["String"] { x = "updated" }