{-# OPTIONS_GHC -fno-warn-orphans #-}

module Language.Haskell.TH.Instances
  (
  ) where

import Language.Haskell.TH
import Language.Haskell.TH.Lift (deriveLift)
import Data.Binary (Binary)
import Data.Semigroup
import Data.Monoid ()
import Control.Applicative

instance Binary Loc

deriveLift ''Loc


instance Semigroup (Q [Dec]) where
  (<>) = liftA2 (<>)

instance Monoid (Q [Dec]) where
  mempty  = pure mempty
  mappend = (<>)
