diff --git a/test/Data/Gibberish/Gen/PassSpec.hs b/test/Data/Gibberish/Gen/PassSpec.hs
index eb82755..b4325b0 100644
--- a/test/Data/Gibberish/Gen/PassSpec.hs
+++ b/test/Data/Gibberish/Gen/PassSpec.hs
@@ -196,8 +196,6 @@ spec = do
 
       listSize <- forAll $ Gen.int (Range.linear 1 50)
 
-      let shouldHaveLength (Word w) = (Text.length w ==)
-
       assert $
         not (null passes)
           && all (`shouldHaveLength` woptsLength opts') (take listSize passes)
@@ -214,8 +212,6 @@ spec = do
       (passes, _) <- liftIO $ usingPassT randomGen (genPasswords' opts' numberWords)
       annotateShow passes
 
-      let shouldHaveLength (Word w) = (Text.length w ==)
-
       assert $
         not (null passes)
           && all (`shouldHaveLength` woptsLength opts') passes
@@ -285,3 +281,6 @@ spec = do
 
       assert $
         not (null phrase) && all (isInRange . unWord) phrase
+
+shouldHaveLength :: Word -> Int -> Bool
+shouldHaveLength (Word w) = (Text.length w ==)