haskell-language-server-2.15.0.0: plugins/hls-splice-plugin/test/testdata/TDeclPragma.hs

{-# LANGUAGE TemplateHaskell #-}
module TDeclPragma where
import Language.Haskell.TH

$(sequence
    [ sigD (mkName "myId") [t|Int -> Int|]
    , pragInlD (mkName "myId") Inline FunLike AllPhases
    , funD (mkName "myId") [clause [varP (mkName "x")] (normalB (varE (mkName "x"))) []]
    ])