Add tests for let/where interaction #177

data/examples/declaration/value/function/do-out.hs

@@ -52,3 +52,9 @@ trickyLet = do
   foo
   let x = 5
    in bar x
+
+-- single line let-where
+samples n f = do
+  gen <- newQCGen
+  let rands g = g1 : rands g2 where (g1, g2) = split g
+  return $ rands gen

data/examples/declaration/value/function/do.hs

@@ -51,3 +51,9 @@ trickyLet = do
   foo
   let x = 5
    in bar x
+
+-- single line let-where
+samples n f = do
+    gen <- newQCGen
+    let rands g = g1 : rands g2 where (g1, g2) = split g
+    return $ rands gen

data/examples/declaration/value/function/let-single-line-out.hs

@@ -1,2 +1,3 @@
 foo :: a -> a
 foo x = let x = x in x
+foo x = let x = z where z = 2 in x

data/examples/declaration/value/function/let-single-line.hs

@@ -1,2 +1,3 @@
 foo :: a -> a
 foo x = let x = x in x
+foo x = let x = z where z = 2 in x