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

relational-query: add ShowConstantTermsSQL instances of tuple types.

Browse Source
This commit is contained in:
Kei Hibino 2017-03-30 15:47:37 +09:00
parent 28135083ad
commit 238491d9b5
2 changed files with 3 additions and 8 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

@ -158,8 +158,3 @@ showMaybeTerms wa = d where
instance (PersistableWidth a, ShowConstantTermsSQL a)
=> ShowConstantTermsSQL (Maybe a) where
showConstantTermsSQL = showMaybeTerms persistableWidth
-- | Constant SQL terms of '(a, b)' type.
instance (ShowConstantTermsSQL a, ShowConstantTermsSQL b)
=> ShowConstantTermsSQL (a, b) where
showConstantTermsSQL (a, b) = showConstantTermsSQL a ++ showConstantTermsSQL b

6
relational-query/src/Database/Relational/Query/TupleInstances.hs
View File

@ -18,11 +18,11 @@ module Database.Relational.Query.TupleInstances where
import Control.Applicative ((<$>))
import Database.Relational.Query.BaseTH (defineTuplePi, defineTupleProductConstructor)
import Database.Relational.Query.BaseTH
(defineTuplePi, defineTupleProductConstructor, defineTupleShowConstantInstance,)
$(concat <$> mapM defineTupleProductConstructor [2..7])
-- Generic instances of tuple types are generated from 2 to 7 in GHC.Generics.
$(concat <$> mapM defineTuplePi [2..7])
$(concat <$> mapM defineTupleShowConstantInstance [2..7])
-- Generic instances of tuple types are generated from 2 to 7 in GHC.Generics.