diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,4 +1,9 @@
 
+40900.1.0
+=========
+
+ * Updated for mattermost-api version 40900.1.0.
+
 40900.0.0
 =========
 
diff --git a/mattermost-api-qc.cabal b/mattermost-api-qc.cabal
--- a/mattermost-api-qc.cabal
+++ b/mattermost-api-qc.cabal
@@ -1,5 +1,5 @@
 name:                mattermost-api-qc
-version:             40900.0.0
+version:             40900.1.0
 description:         A testing library for the mattermost-api library
 synopsis:            QuickCheck instances for the Mattermost client API library
 homepage:            https://github.com/matterhorn-chat/mattermost-api-qc
@@ -22,7 +22,7 @@
   exposed-modules:     Network.Mattermost.QuickCheck
   build-depends:       base >=4.4 && <5
                      , containers
-                     , mattermost-api == 40900.0.0
+                     , mattermost-api == 40900.1.0
                      , QuickCheck
                      , text
                      , time
diff --git a/src/Network/Mattermost/QuickCheck.hs b/src/Network/Mattermost/QuickCheck.hs
--- a/src/Network/Mattermost/QuickCheck.hs
+++ b/src/Network/Mattermost/QuickCheck.hs
@@ -8,6 +8,9 @@
 import           Test.QuickCheck
 
 
+genUserText :: Gen UserText
+genUserText = UserText <$> genText
+
 genText :: Gen T.Text
 genText = sized $ \s ->
           oneof [ return T.empty
@@ -119,7 +122,7 @@
           <*> genSeq genFileId
           <*> genPostId
           <*> genPostType
-          <*> genText
+          <*> genUserText
           <*> genMaybe genTime
           <*> genText
           <*> genTime