Add fields fingerprint, title, uuid, custom (#53)

Author: psilospore

rollbar-client/rollbar-client.cabal

@@ -57,7 +57,7 @@ library
     , mtl >=2.2 && <3
     , process >=1.6 && <2
     , req >=2.1 && <4
-    , text >=1.2 && <2
+    , text >=1.2 && <2.1
     , unordered-containers >=0.2 && <1
     , yaml >=0.11 && <1
   default-language: Haskell2010

rollbar-client/src/Rollbar/Client/Item.hs

@@ -80,28 +80,38 @@ data Item = Item
   , itemServer :: Maybe Server
     -- ^ Data about the server related to this event.
   -- client
-  -- custom
-  -- fingerprint
-  -- title
-  -- uuid
+  , custom :: Maybe Object
+    -- ^ Any arbitrary metadata you want to send.
+  , title :: Maybe Text
+    -- ^ A string that will be used as the title of the Item occurrences will be grouped into.
+  , uuid :: Maybe Text
+    -- ^ Identifies this occurrence.
+  , fingerprint :: Maybe Text
+    -- ^ Controlls how this occurrence should be grouped.
   , itemNotifier :: Notifier
     -- ^ Describes the library used to send this event.
   } deriving (Eq, Show)
 
 instance ToJSON Item where
-  toJSON Item{..} = object
-    [ "data" .= object
-        [ "environment" .= itemEnvironment
-        , "body" .= itemBody
-        , "level" .= itemLevel
-        , "platform" .= itemPlatform
-        , "language" .= itemLanguage
-        , "framework" .= itemFramework
-        , "request" .= itemRequest
-        , "server" .= itemServer
-        , "notifier" .= itemNotifier
-        ]
-    ]
+  toJSON Item{..} =
+    let dataFields =
+          [ "environment" .= itemEnvironment
+          , "body" .= itemBody
+          , "level" .= itemLevel
+          , "platform" .= itemPlatform
+          , "language" .= itemLanguage
+          , "framework" .= itemFramework
+          , "request" .= itemRequest
+          , "server" .= itemServer
+          , "notifier" .= itemNotifier
+          ] ++ catMaybes
+          [ ("custom" .=) <$> custom
+           , ("fingerprint" .=) <$> fingerprint
+           , ("title" .=) <$> title
+           , ("uuid" .=) <$> uuid
+          ]
+    in
+    object [ "data" .= object dataFields ]
 
 -- | Builds an 'Item' based on a 'Payload'.
 mkItem
@@ -129,6 +139,10 @@ mkItem payload = do
         , serverCodeVersion = Nothing
         }
     , itemNotifier = defaultNotifier
+    , custom = Nothing
+    , title = Nothing
+    , uuid = Nothing
+    , fingerprint = Nothing
     }
 
 -- | The main data being sent. It can either be a message, an exception, or a

rollbar-wai/rollbar-wai.cabal

@@ -51,7 +51,7 @@ library
     , case-insensitive >=1.2 && <2
     , http-types >=0.12 && <1
     , rollbar-client >=1.0 && <2
-    , text >=1.2 && <2
+    , text >=1.2 && <2.1
     , unordered-containers >=0.2 && <1
     , wai >=3.2 && <4
     , wai-extra >=3.0 && <4