36d59cc · project-m36 · git.iko.soy

git.iko.soy/project-m36

fix minor hlint complaint

commit36d59cc0877fc652c68d3fb53916d1ad6257b219 authorAgentM <agentm@themactionfaction.com> dateMon 30 Oct 2017, 00:48 (9 years ago) parent807ec5c

1 file changed+1−1

unifiedsplit

test/TutorialD/Interpreter.hs+1−1

@@ -498,7 +498,7 @@ testRestrictionPredicateExprs = TestCase $ do

498498 executeTutorialD sessionId dbconn "x:=s where status=20 or status=10"

499499 eRvOr <- executeRelationalExpr sessionId dbconn (RelationVariable "x" ())

500500 let expectedRelOr = restrict (\tuple ->

501− pure (elem (atomForAttributeName "status" tuple) [Right (IntegerAtom 10), Right (IntegerAtom 20)])) suppliersRel

501+ pure (atomForAttributeName "status" tuple `elem` [Right (IntegerAtom 10), Right (IntegerAtom 20)])) suppliersRel

502502 assertEqual "status 20 or 10" expectedRelOr eRvOr

503503 -- and

504504 executeTutorialD sessionId dbconn "x:=s where status=20 and status=10"