24 lines
384 B
Haskell
24 lines
384 B
Haskell
{-# OPTIONS_GHC -fno-warn-orphans #-}
|
|
|
|
module Language.Haskell.TH.Instances
|
|
(
|
|
) where
|
|
|
|
import ClassyPrelude
|
|
|
|
import Language.Haskell.TH
|
|
import Language.Haskell.TH.Lift (deriveLift)
|
|
import Data.Binary (Binary)
|
|
|
|
instance Binary Loc
|
|
|
|
deriveLift ''Loc
|
|
|
|
|
|
instance Semigroup (Q [Dec]) where
|
|
(<>) = liftA2 (<>)
|
|
|
|
instance Monoid (Q [Dec]) where
|
|
mempty = pure mempty
|
|
mappend = (<>)
|