diff --git a/quickcheck-text.cabal b/quickcheck-text.cabal
--- a/quickcheck-text.cabal
+++ b/quickcheck-text.cabal
@@ -1,5 +1,5 @@
 name:                quickcheck-text
-version:             0.1.2.0
+version:             0.1.2.1
 synopsis:            Alternative arbitrary instance for Text
 description:         The usual Arbitrary instance for Text
                      (in
diff --git a/src/Test/QuickCheck/Utf8.hs b/src/Test/QuickCheck/Utf8.hs
--- a/src/Test/QuickCheck/Utf8.hs
+++ b/src/Test/QuickCheck/Utf8.hs
@@ -89,7 +89,7 @@
 -- the intent is the same: the Arbitrary instance for 'Char' in quickcheck
 -- makes no attempt to generate valid non-ASCII characters at this time.
 genChar :: Gen Char
-genChar = (T.head . decodeUtf8) <$> genUtf8Character
+genChar = fmap (T.head . decodeUtf8) genUtf8Character
 
 -- | A valid UTF-8 character, one to three bytes long.
 genUtf8Character :: Gen ByteString