khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2025-01-07 13:46:41 +03:00
Code Issues Projects Releases Wiki Activity

relational-query: using binary operator.

Browse Source
This commit is contained in:
Kei Hibino 2017-02-11 16:46:07 +09:00
parent b67f0edb6d
commit 3d68d9ead3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
relational-query/src/Database/Relational/Query/Sub.hs
View File

@ -215,7 +215,7 @@ showQualifier (Qualifier i) = stringSQL $ 'T' : show i
-- | Binary operator to qualify.
(<.>) :: Qualifier -> ColumnSQL -> ColumnSQL
i <.> n = fmap (showQualifier i SQL.<.>) n
i <.> n = (showQualifier i SQL.<.>) <$> n
-- | Qualified expression from qualifier and projection index.
columnFromId :: Qualifier -> Int -> ColumnSQL