diff --git a/mangopay.cabal b/mangopay.cabal
--- a/mangopay.cabal
+++ b/mangopay.cabal
@@ -1,5 +1,5 @@
 name:           mangopay
-version:        1.5
+version:        1.5.1
 cabal-version:  >= 1.8
 build-type:     Simple
 author:         JP Moresmau <jpmoresmau@gmail.com>
@@ -105,7 +105,6 @@
      monad-control, monad-logger, resourcet, template-haskell,
      text, time, transformers, transformers-base,
      unordered-containers, utf8-string, vector, country-codes
-
      , blaze-builder
      , HTF            >  0.9
      , HUnit          >= 1.2.5
diff --git a/src/Web/MangoPay/Events.hs b/src/Web/MangoPay/Events.hs
--- a/src/Web/MangoPay/Events.hs
+++ b/src/Web/MangoPay/Events.hs
@@ -53,7 +53,8 @@
         getJSONList req 
 
 -- | Event type
-data EventType=PAYIN_NORMAL_CREATED
+data EventType=
+          PAYIN_NORMAL_CREATED
         | PAYIN_NORMAL_SUCCEEDED
         | PAYIN_NORMAL_FAILED
         | PAYOUT_NORMAL_CREATED
@@ -71,6 +72,10 @@
         | TRANSFER_REFUND_CREATED
         | TRANSFER_REFUND_SUCCEEDED
         | TRANSFER_REFUND_FAILED
+        | KYC_CREATED
+        | KYC_VALIDATION_ASKED
+        | KYC_SUCCEEDED
+        | KYC_FAILED
         deriving (Show,Read,Eq,Ord,Bounded,Enum,Typeable)
 
 instance ToHtQuery (Maybe EventType) where
diff --git a/test/Web/MangoPay/DocumentsTest.hs b/test/Web/MangoPay/DocumentsTest.hs
--- a/test/Web/MangoPay/DocumentsTest.hs
+++ b/test/Web/MangoPay/DocumentsTest.hs
@@ -18,17 +18,18 @@
   assertEqual 1 (length $ plData usL)
   let uid=urId $ head $ plData usL
   let d=Document Nothing Nothing Nothing IDENTITY_PROOF (Just CREATED) Nothing Nothing
-  d2<-testMP $ storeDocument uid d
-  assertBool (isJust $ dId d2)
-  assertBool (isJust $ dCreationDate d2)
-  assertEqual IDENTITY_PROOF (dType d2)
-  tf<-BS.readFile "data/test.jpg"
-  -- document has to be in CREATED status
-  testMP $ storePage uid (fromJust $ dId d2) tf
-  d3<-testMP $ storeDocument uid d2{dStatus=Just VALIDATION_ASKED}
-  assertEqual (Just VALIDATION_ASKED) (dStatus d3)
-  assertEqual (dId d2) (dId d3)
-  d4<-testMP $ fetchDocument uid (fromJust $ dId d2)
-  assertEqual (Just VALIDATION_ASKED) (dStatus d4)
-  
+  testEventTypes [KYC_CREATED,KYC_VALIDATION_ASKED] $ do
+    d2<-testMP $ storeDocument uid d
+    assertBool (isJust $ dId d2)
+    assertBool (isJust $ dCreationDate d2)
+    assertEqual IDENTITY_PROOF (dType d2)
+    tf<-BS.readFile "data/test.jpg"
+    -- document has to be in CREATED status
+    testMP $ storePage uid (fromJust $ dId d2) tf
+    d3<-testMP $ storeDocument uid d2{dStatus=Just VALIDATION_ASKED}
+    assertEqual (Just VALIDATION_ASKED) (dStatus d3)
+    assertEqual (dId d2) (dId d3)
+    d4<-testMP $ fetchDocument uid (fromJust $ dId d2)
+    assertEqual (Just VALIDATION_ASKED) (dStatus d4)
+    return $ dId d2