{-# 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 = (<>)