33 lines
567 B
Haskell
33 lines
567 B
Haskell
{-# OPTIONS_GHC -fno-warn-orphans #-}
|
|
|
|
module Language.Haskell.TH.Instances
|
|
(
|
|
) where
|
|
|
|
import ClassyPrelude
|
|
|
|
import Language.Haskell.TH
|
|
import Language.Haskell.TH.Syntax
|
|
import Language.Haskell.TH.Lift (deriveLift)
|
|
import Data.Binary (Binary)
|
|
|
|
instance Binary Loc
|
|
|
|
deriveLift ''Loc
|
|
|
|
|
|
instance Binary OccName
|
|
instance Binary ModName
|
|
instance Binary NameSpace
|
|
instance Binary PkgName
|
|
instance Binary NameFlavour
|
|
instance Binary Name
|
|
|
|
|
|
instance Semigroup (Q [Dec]) where
|
|
(<>) = liftA2 (<>)
|
|
|
|
instance Monoid (Q [Dec]) where
|
|
mempty = pure mempty
|
|
mappend = (<>)
|