From 87395e5981b6d38c8c1a72e66c3c378e30879e75 Mon Sep 17 00:00:00 2001 From: Kei Hibino Date: Sat, 11 May 2013 14:49:52 +0900 Subject: [PATCH] Formatting. --- relational-join/src/Database/Relational/Query/TH.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/relational-join/src/Database/Relational/Query/TH.hs b/relational-join/src/Database/Relational/Query/TH.hs index c8065bdc..eaa71d9f 100644 --- a/relational-join/src/Database/Relational/Query/TH.hs +++ b/relational-join/src/Database/Relational/Query/TH.hs @@ -143,10 +143,10 @@ inlineQuery relVar' rel qVar' = do case relInfo of VarI _ (AppT (AppT (ConT prn) p) r) _ _ | prn == ''PrimeRelation -> do - sig <- sigD qVar [t| Query $(return p) $(return r) |] - var <- valD (varP qVar) - (normalB [| unsafeTypedQuery $(stringE . toSQL $ rel) |]) - [] - return [sig, var] + sig <- sigD qVar [t| Query $(return p) $(return r) |] + var <- valD (varP qVar) + (normalB [| unsafeTypedQuery $(stringE . toSQL $ rel) |]) + [] + return [sig, var] _ -> compileError $ "expandRelation: Variable must have PrimeRelation type: " ++ show relVar