squelch hlint suggestion
commit7905d57afd412951298a30c3c3a18a44f753ba95
authorAgentM <agentm@themactionfaction.com>
dateThu 30 Nov 2017, 12:44 (9 years ago)
parent02db0ac
src/lib/ProjectM36/StaticOptimizer.hs+1−1
@@ -21,7 +21,7 @@ optimizeRelationalExprReader expr = do
2121 eOptExpr <- applyStaticRelationalOptimization expr
2222 case eOptExpr of
2323 Left err -> pure (Left err)
24− Right optExpr -> do
24+ Right optExpr ->
2525 applyStaticJoinElimination (applyStaticRestrictionPushdown (applyStaticRestrictionCollapse optExpr))
2626
2727optimizeDatabaseContextExpr :: DatabaseContext -> DatabaseContextExpr -> Either RelationalError DatabaseContextExpr