haskell-language-server-2.7.0.0: plugins/hls-class-plugin/test/testdata/THDef.hs

{-# LANGUAGE TemplateHaskell #-}

module THDef where

import Language.Haskell.TH
import Language.Haskell.TH.Syntax

class F a where
    f :: a

gen :: Lift t => Name -> t -> Q [Dec]
gen ty v = [d| instance F $(conT ty) where f = v |]