diff --git a/raven-haskell.cabal b/raven-haskell.cabal
--- a/raven-haskell.cabal
+++ b/raven-haskell.cabal
@@ -1,5 +1,5 @@
 name:                raven-haskell
-version:             0.1.1.0
+version:             0.1.2.0
 synopsis:            Haskell client for Sentry logging service.
 -- description:         
 homepage:            https://bitbucket.org/dpwiz/raven-haskell
diff --git a/src/System/Log/Raven/Types.hs b/src/System/Log/Raven/Types.hs
--- a/src/System/Log/Raven/Types.hs
+++ b/src/System/Log/Raven/Types.hs
@@ -90,19 +90,21 @@
 type Assoc = HM.HashMap String String
 
 -- | Event packet to be sent. See detailed field descriptions in
---   <http://sentry.readthedocs.org/en/latest/developer/client/index.html#building-the-json-packet>.
-data SentryRecord = SentryRecord { srEventId    :: !String
-                                 , srMessage    :: !String
-                                 , srTimestamp  :: !String
-                                 , srLevel      :: !SentryLevel
-                                 , srLogger     :: !String
-                                 , srPlatform   :: Maybe String
-                                 , srCulprit    :: Maybe String
-                                 , srTags       :: !Assoc
-                                 , srServerName :: Maybe String
-                                 , srModules    :: !Assoc
-                                 , srExtra      :: !Assoc
-                                 , srInterfaces :: HM.HashMap String Value
+--   <https://docs.sentry.io/clientdev/attributes/>
+data SentryRecord = SentryRecord { srEventId     :: !String
+                                 , srMessage     :: !String
+                                 , srTimestamp   :: !String
+                                 , srLevel       :: !SentryLevel
+                                 , srLogger      :: !String
+                                 , srPlatform    :: Maybe String
+                                 , srCulprit     :: Maybe String
+                                 , srTags        :: !Assoc
+                                 , srServerName  :: Maybe String
+                                 , srModules     :: !Assoc
+                                 , srExtra       :: !Assoc
+                                 , srInterfaces  :: HM.HashMap String Value
+                                 , srRelease     :: Maybe String
+                                 , srEnvironment :: Maybe String
                                  } deriving (Show, Eq)
 
 -- | Initialize a record with all required fields filled in.
@@ -110,7 +112,7 @@
 newRecord eid m t lev logger =
     SentryRecord
         eid m t lev logger
-        Nothing Nothing HM.empty Nothing HM.empty HM.empty HM.empty
+        Nothing Nothing HM.empty Nothing HM.empty HM.empty HM.empty Nothing Nothing
 
 instance ToJSON SentryRecord where
     toJSON r = object . concat $
@@ -128,4 +130,6 @@
         , if HM.null (srExtra r) then [] else ["extra" .= srExtra r]
         , if HM.null (srInterfaces r) then [] else [ T.pack iface .= stuff
                                                    | (iface, stuff) <- HM.toList $ srInterfaces r]
+        , maybe [] (\v -> ["release" .= v]) $ srRelease r
+        , maybe [] (\v -> ["environment" .= v]) $ srEnvironment r
         ]