khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-12-03 03:52:10 +03:00
Code Issues Projects Releases Wiki Activity

relational-query: fix wrong lazy instances.

Browse Source
This commit is contained in:
Kei Hibino 2017-04-04 15:45:52 +09:00
parent 7d0ffa6b86
commit 35e1859ffd
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -22,6 +22,7 @@ import Data.Text (Text)
import qualified Data.Text as T
import qualified Data.Text.Encoding as T
import qualified Data.Text.Lazy as LT
import qualified Data.Text.Lazy.Encoding as LT
import Text.Printf (PrintfArg, printf)
import Data.Time (FormatTime, Day, TimeOfDay, LocalTime, UTCTime, ZonedTime, formatTime)
import Data.Time.Locale.Compat (defaultTimeLocale)
@ -89,7 +90,7 @@ instance ShowConstantTermsSQL ByteString where
-- | Constant SQL terms of 'LB.ByteString'.
instance ShowConstantTermsSQL LB.ByteString where
showConstantTermsSQL = mconcat . map showConstantTermsSQL . LB.toChunks
showConstantTermsSQL = stringTermsSQL . LT.unpack . LT.decodeUtf8
-- | Constant SQL terms of 'Text'.
instance ShowConstantTermsSQL Text where
@ -97,7 +98,7 @@ instance ShowConstantTermsSQL Text where
-- | Constant SQL terms of 'LT.Text'.
instance ShowConstantTermsSQL LT.Text where
showConstantTermsSQL = mconcat . map showConstantTermsSQL . LT.toChunks
showConstantTermsSQL = stringTermsSQL . LT.unpack
-- | Constant SQL terms of 'Char'.
instance ShowConstantTermsSQL Char where