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