More readable conditional

src/App.hs

@@ -133,7 +133,8 @@ app req =
           else do
             tableCols <- map (cs . colName) <$> columns qt
             let cols = map cs $ keys obj
-            if S.fromList tableCols == S.fromList cols then do
+            if S.fromList tableCols == S.fromList cols
+              then do
                 let vals = elems obj
                 H.unit . coerce $ iffNotT
                         (whereT qq $ update qt cols vals)