khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2025-01-08 14:26:33 +03:00
Code Issues Projects Releases Wiki Activity

Compatibility against bytestring-0.9.

Browse Source
This commit is contained in:
Kei Hibino 2014-07-07 15:09:21 +09:00
parent 88fc888009
commit e0155333e0
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
relational-query/src/Database/Relational/Query/Pure.hs
View File

@ -20,6 +20,7 @@ module Database.Relational.Query.Pure (
ShowConstantTermsSQL (..)
) where
import Data.Monoid (mconcat)
import Data.Int (Int16, Int32, Int64)
import Data.ByteString (ByteString)
import qualified Data.ByteString.Lazy as LB
@ -95,7 +96,7 @@ instance ShowConstantTermsSQL ByteString where
-- | Constant SQL terms of 'LB.ByteString'.
instance ShowConstantTermsSQL LB.ByteString where
showConstantTermsSQL = showConstantTermsSQL . LB.toStrict
showConstantTermsSQL = showConstantTermsSQL . mconcat . LB.toChunks
-- | Constant SQL terms of 'Text'.
instance ShowConstantTermsSQL Text where