fix hlint suggestion
commitbe69ab9091c4d4967fb6c6db4b2bd7ea40a9164b
authorAgentM <agentm@themactionfaction.com>
dateSat 7 Nov 2020, 00:30 (6 years ago)
parenta45300a
src/bin/TutorialD/Interpreter/RelationalExpr.hs+1−1
@@ -106,7 +106,7 @@ extendP = do
106106 case extends of
107107 [] -> pure (Restrict TruePredicate)
108108 extends' ->
109− pure $ \expr -> foldl (\acc ext -> Extend ext acc) expr extends'
109+ pure $ \expr -> foldl (flip Extend) expr extends'
110110
111111semijoinP :: RelationalMarkerExpr a => Parser (RelationalExprBase a -> RelationalExprBase a -> RelationalExprBase a)
112112semijoinP = do