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

Formatting.

Browse Source
This commit is contained in:
Kei Hibino 2013-05-11 14:49:52 +09:00
parent 6223573b72
commit 87395e5981
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
relational-join/src/Database/Relational/Query/TH.hs
View File

@ -143,10 +143,10 @@ inlineQuery relVar' rel qVar' = do
case relInfo of case relInfo of
VarI _ (AppT (AppT (ConT prn) p) r) _ _ VarI _ (AppT (AppT (ConT prn) p) r) _ _
| prn == ''PrimeRelation -> do | prn == ''PrimeRelation -> do
sig <- sigD qVar [t| Query $(return p) $(return r) |] sig <- sigD qVar [t| Query $(return p) $(return r) |]
var <- valD (varP qVar) var <- valD (varP qVar)
(normalB [| unsafeTypedQuery $(stringE . toSQL $ rel) |]) (normalB [| unsafeTypedQuery $(stringE . toSQL $ rel) |])
[] []
return [sig, var] return [sig, var]
_ -> _ ->
compileError $ "expandRelation: Variable must have PrimeRelation type: " ++ show relVar compileError $ "expandRelation: Variable must have PrimeRelation type: " ++ show relVar