run stylish-haskell v0.12.1.0

This commit is contained in:
Wolfgang Walther
2020-11-02 13:22:01 -05:00
committed by Steve Chavez
parent 4b4a622a17
commit efc725fb24
+1 -1
View File
@@ -303,7 +303,7 @@ mutateRequest schema tName apiRequest pkCols readReq = mapLeft errorResponseFor
not (null (S.fromList pkCols)) &&
all (\case
Filter _ (OpExpr False (Op "eq" _)) -> True
_ -> False) flts
_ -> False) flts
then Insert qi (iColumns apiRequest) (Just (MergeDuplicates, pkCols)) <$> combinedLogic <*> pure returnings
else
Left InvalidFilters) =<< filters