diff --git a/genvalidity-text.cabal b/genvalidity-text.cabal
--- a/genvalidity-text.cabal
+++ b/genvalidity-text.cabal
@@ -1,18 +1,19 @@
--- This file has been generated from package.yaml by hpack version 0.20.0.
+-- This file has been generated from package.yaml by hpack version 0.28.2.
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: d22227ce6d49d68cb0440a849b2f1577181dd931c8afd5cbd34b627d5bf52a71
+-- hash: b2736c8f08d545f919f3113a9d909d562daf368e62f0a7fb3a3d0332e596adc2
 
 name:           genvalidity-text
-version:        0.5.0.1
+version:        0.5.0.2
 synopsis:       GenValidity support for Text
 description:    Please see README.md
 category:       Testing
 homepage:       https://github.com/NorfairKing/validity#readme
 bug-reports:    https://github.com/NorfairKing/validity/issues
 author:         Tom Sydney Kerckhove
-maintainer:     syd.kerckhove@gmail.com
+maintainer:     syd.kerckhove@gmail.com,
+                nick.van.den.broeck666@gmail.com
 copyright:      Copyright: (c) 2016-2018 Tom Sydney Kerckhove
 license:        MIT
 license-file:   LICENSE
diff --git a/src/Data/GenValidity/Text.hs b/src/Data/GenValidity/Text.hs
--- a/src/Data/GenValidity/Text.hs
+++ b/src/Data/GenValidity/Text.hs
@@ -50,9 +50,7 @@
         case n of
             0 -> pure $ T.singleton c
             1 -> pure $ T.singleton c
-            _ -> do
-                rest <- resize (n - 1) genValid
-                return $ T.cons c rest
+            _ -> T.cons c <$> resize (n - 1) genValid
 
 -- | 'textStartingWith g' generates a 'Text' value that contains a substring generated by 'g'.
 textWith :: Gen Text -> Gen Text