1 2 3 4 5 6 7
{-# LANGUAGE TemplateHaskell #-} module T16895e where import Language.Haskell.TH main = print $(infixE Nothing [|id id|] Nothing)