Author: Chris Warburton <chriswarbo@gmail.com>
Date: Tue 8 Jan 13:11:51 UTC 2019
Parent: dbce45aacaccb901478d12ac58ab9418b54175e6
Log message:
HLint
1: diff --git a/src/HS2AST/Tests/Generators.hs b/src/HS2AST/Tests/Generators.hs
2: index c0c3d80..572956b 100644
3: --- a/src/HS2AST/Tests/Generators.hs
4: +++ b/src/HS2AST/Tests/Generators.hs
5: @@ -242,8 +242,7 @@ instance Arbitrary T.Text where
6: -- More-specific generators
7:
8: exprUsingVars :: [Var] -> Gen (Expr Var)
9: -exprUsingVars [] = arbitrary
10: -exprUsingVars (v:vs) = App (Var v) <$> exprUsingVars vs
11: +exprUsingVars = foldr ((<$>) . App . Var) arbitrary
12:
13: -- This is very expensive compared to Vars and TCs, so we pass along an
14: -- exponentially-decreasing "size" parameter