mysql-simple-0.4.9: test/Common.hs

{-# LANGUAGE StandaloneDeriving #-}
{-# options_ghc -fno-warn-orphans #-}

module Common where

import Data.ByteString.Builder as BS
import Database.MySQL.Simple.Param

-- Declare some (orphan) instances needed for test specs
instance Show BS.Builder where
  show = show . BS.toLazyByteString

instance Eq BS.Builder where
  a == b = BS.toLazyByteString a == BS.toLazyByteString b

deriving instance Eq Action