唯一let ... inを使いたくなる瞬間をdoのletでどうにかする

rewrite-the-only-case-where-I-use-let-in.hs

import Test.Hspec
import Test.Hspec.QuickCheck
import Test.QuickCheck

-- 従来、Hspecで個別のテストケースに対して Gen を定義したい場合、
-- いちいち違う名前を付けるのが面倒なので let ... in で g （あるいはgen）という名前を使い回していたが、
-- 別にそれもdoの中のletで解決できることが発覚した。

main = hspec $ do
  -- let ... inを使った場合
  let g = arbitrary :: Gen Int
   in prop "int" $ forAll g $ \val -> do
        val `shouldBe` undefined
  let g = arbitrary :: Gen Char
   in prop "char" $ forAll g $ \val -> do
        val `shouldBe` undefined

  -- doの中のletを使った場合
  do
    let g = arbitrary :: Gen Int
    prop "int" $ forAll g $ \val -> do
      val `shouldBe` undefined
  do
    let g = arbitrary :: Gen Char
    prop "char" $ forAll g $ \val -> do
      val `shouldBe` undefined