fix(client): use the exception type name as the Rollbar class

rollbar-cli/ChangeLog.md

@@ -2,6 +2,13 @@
 
 All notable changes to this project will be documented in this file.
 
+## [1.2.0] - 2026-08-18
+
+### Changed
+
+- Version bump only, keeping in step with the other rollbar packages; the CLI
+  does not report exceptions.
+
 ## [1.1.0] - 2024-05-28
 
 ### Changed

rollbar-cli/package.yaml

@@ -1,5 +1,5 @@
 name: rollbar-cli
-version: 1.1.1
+version: 1.2.0
 github: "stackbuilders/rollbar-haskell"
 license: MIT
 author: "Stack Builders Inc."

rollbar-cli/rollbar-cli.cabal

@@ -5,7 +5,7 @@ cabal-version: 1.12
 -- see: https://github.com/sol/hpack
 
 name:           rollbar-cli
-version:        1.1.1
+version:        1.2.0
 synopsis:       Simple CLI tool to perform commons tasks such as tracking deploys.
 description:    Please see the README on GitHub at
                 <https://github.com/stackbuilders/rollbar-haskell/tree/master/rollbar-cli>

rollbar-client/ChangeLog.md

@@ -2,6 +2,23 @@
 
 All notable changes to this project will be documented in this file.
 
+## [1.2.0] - 2026-08-18
+
+### Changed
+
+- **Breaking:** `mkException` now sets the exception class to the exception
+  type name (unwrapping `SomeException` and `SomeAsyncException`) instead of
+  the rendered exception text, which embeds per-occurrence data and created a
+  new Rollbar item for nearly every occurrence. The rendered text is kept as
+  the message (first line) and the description (in full).
+
+  Upgrading re-groups existing items once: occurrences reported after the
+  upgrade carry new class values, so Rollbar files them under new items.
+
+  Traces still carry no stack frames, so all occurrences of one exception type
+  group into a single item; set `fingerprint` on the `Item` for finer-grained
+  grouping.
+
 ## [1.1.0] - 2024-05-28
 
 ### Changed

rollbar-client/package.yaml

@@ -1,5 +1,5 @@
 name: rollbar-client
-version: 1.1.1
+version: 1.2.0
 github: "stackbuilders/rollbar-haskell"
 license: MIT
 author: "Stack Builders Inc."

rollbar-client/rollbar-client.cabal

@@ -5,7 +5,7 @@ cabal-version: 2.0
 -- see: https://github.com/sol/hpack
 
 name:           rollbar-client
-version:        1.1.1
+version:        1.2.0
 synopsis:       Core library to communicate with Rollbar API.
 description:    Please see the README on GitHub at
                 <https://github.com/stackbuilders/rollbar-haskell/tree/master/rollbar-client>

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

@@ -38,6 +38,7 @@ import Data.Aeson
 import Data.Maybe (catMaybes)
 import Data.Monoid (Endo(..))
 import Data.Text (Text)
+import Data.Typeable (typeOf)
 import Data.Version (showVersion)
 import Network.HTTP.Req
 import Rollbar.Client.Internal
@@ -242,12 +243,36 @@ instance ToJSON Exception where
     ]
 
 -- | Builds a 'Exception' based on 'E.SomeException'.
+--
+-- The class is the concrete exception type name, unwrapping 'E.SomeException'
+-- and 'E.SomeAsyncException' first, since Rollbar groups trace payloads by
+-- class. The rendered text is kept as the description in full and as the
+-- message up to its first newline, when non-blank.
+--
+-- Traces carry no stack frames yet, so all occurrences of one exception type
+-- group into a single item. The type name is also unqualified, so two
+-- exception types sharing a name (say, req's and http-client's
+-- @HttpException@) share a class. Set 'fingerprint' on the 'Item' to refine
+-- the grouping in either case.
 mkException :: E.Exception e => e -> Exception
 mkException e = Exception
-  { exceptionClass = T.pack $ E.displayException e
-  , exceptionMessage = Nothing
-  , exceptionDescription = Nothing
+  { exceptionClass = T.pack $ exceptionTypeName $ E.toException e
+  , exceptionMessage = if T.null firstLine then Nothing else Just firstLine
+  , exceptionDescription = Just rendered
   }
+  where
+    rendered = T.pack $ E.displayException e
+    firstLine = T.dropWhileEnd (== '\r') $ T.takeWhile (/= '\n') rendered
+
+-- | Name of the innermost exception type, unwrapping 'E.SomeAsyncException'.
+exceptionTypeName :: E.SomeException -> String
+exceptionTypeName se =
+  case E.fromException se of
+    Just (E.SomeAsyncException inner) ->
+      exceptionTypeName $ E.SomeException inner
+    Nothing ->
+      case se of
+        E.SomeException inner -> show $ typeOf inner
 
 data Message = Message
   { messageBody :: Text

rollbar-client/test/Rollbar/ClientSpec.hs

@@ -7,6 +7,7 @@ module Rollbar.ClientSpec
   ( spec
   ) where
 
+import qualified Control.Exception as E
 import qualified Data.Aeson.KeyMap as KM
 
 import Control.Monad.Reader
@@ -32,6 +33,31 @@ instance FromJSON Package where
 instance HasSettings (Reader Settings) where
   getSettings = ask
 
+-- | An exception rendered across several lines, the way real ones are.
+newtype TestException = TestException String
+  deriving (Eq, Show)
+
+instance E.Exception TestException where
+  displayException (TestException detail) =
+    "Something went wrong: " <> detail <> "\n" <>
+    "CallStack (from HasCallStack):\n" <>
+    "  error, called at src/Main.hs:42:9 in main:Main"
+
+-- | An exception reported through the async exception hierarchy.
+data AsyncTestException = AsyncTestException
+  deriving Show
+
+instance E.Exception AsyncTestException where
+  toException = E.asyncExceptionToException
+  fromException = E.asyncExceptionFromException
+
+-- | An exception rendered verbatim, to exercise first-line edge cases.
+newtype RawException = RawException String
+  deriving Show
+
+instance E.Exception RawException where
+  displayException (RawException s) = s
+
 spec :: Spec
 spec = do
   describe "getRequestModifier" $ do
@@ -95,6 +121,40 @@ spec = do
         , notifierVersion = packageVersion
         }
 
+  describe "mkException" $ do
+    let rendered = T.pack $ E.displayException $ TestException "42"
+
+    it "uses the exception type name as the class" $
+      exceptionClass (mkException $ TestException "42") `shouldBe` "TestException"
+
+    it "unwraps SomeException to reach the concrete exception type" $
+      exceptionClass (mkException $ E.toException $ TestException "42")
+        `shouldBe` "TestException"
+
+    it "unwraps SomeAsyncException to reach the concrete exception type" $
+      exceptionClass (mkException AsyncTestException)
+        `shouldBe` "AsyncTestException"
+
+    it "gives occurrences of the same type the same class" $
+      exceptionClass (mkException $ TestException "42")
+        `shouldBe` exceptionClass (mkException $ TestException "1337")
+
+    it "puts the first line of the rendered exception in the message" $
+      exceptionMessage (mkException $ TestException "42")
+        `shouldBe` Just "Something went wrong: 42"
+
+    it "keeps the whole rendered exception in the description" $
+      exceptionDescription (mkException $ TestException "42")
+        `shouldBe` Just rendered
+
+    it "drops a trailing carriage return from the message" $
+      exceptionMessage (mkException $ RawException "Boom\r\nDetails")
+        `shouldBe` Just "Boom"
+
+    it "omits the message when the first rendered line is blank" $
+      exceptionMessage (mkException $ RawException "\nDetails")
+        `shouldBe` Nothing
+
   mtoken <- runIO $ lookupEnv "ROLLBAR_TOKEN"
   if mtoken == Nothing || mtoken == Just ""
     then describe "live API specs" $
@@ -117,7 +177,7 @@ spec = do
             , title = Nothing
             , uuid = Just "12345"
             , fingerprint = Nothing
-            , itemNotifier = Notifier "rollbar-client" "1.1.1"
+            , itemNotifier = Notifier "rollbar-client" "1.2.0"
             }
           jsonItem = decodeUtf8 $ DBL.toStrict $ encode item
 

rollbar-wai/ChangeLog.md

@@ -2,6 +2,15 @@
 
 All notable changes to this project will be documented in this file.
 
+## [1.2.0] - 2026-08-18
+
+### Changed
+
+- **Breaking:** captured exceptions are now reported with the exception type
+  name as the Rollbar class and the rendered text as message and description.
+  Upgrading re-groups existing items once; see the rollbar-client 1.2.0 entry.
+  Requires rollbar-client >= 1.2.
+
 ## [1.1.0] - 2024-05-28
 
 ### Changed

rollbar-wai/package.yaml

@@ -1,5 +1,5 @@
 name: rollbar-wai
-version: 1.1.1
+version: 1.2.0
 github: "stackbuilders/rollbar-haskell"
 license: MIT
 author: "Stack Builders Inc."
@@ -43,7 +43,7 @@ library:
     - bytestring >= 0.10 && < 1
     - case-insensitive >= 1.2 && < 2
     - http-types >= 0.12 && < 1
-    - rollbar-client >= 1.0 && < 2
+    - rollbar-client >= 1.2 && < 2
     - text >= 1.2 && < 2.2
     - unordered-containers >= 0.2 && < 1
     - wai >= 3.2 && < 4

rollbar-wai/rollbar-wai.cabal

@@ -5,7 +5,7 @@ cabal-version: 1.12
 -- see: https://github.com/sol/hpack
 
 name:           rollbar-wai
-version:        1.1.1
+version:        1.2.0
 synopsis:       Provides error reporting capabilities to WAI based applications through Rollbar API.
 
 description:    Please see the README on GitHub at
@@ -48,7 +48,7 @@ library
     , bytestring >=0.10 && <1
     , case-insensitive >=1.2 && <2
     , http-types >=0.12 && <1
-    , rollbar-client >=1.0 && <2
+    , rollbar-client >=1.2 && <2
     , text >=1.2 && <2.2
     , unordered-containers >=0.2 && <1
     , wai >=3.2 && <4

rollbar-wai/test/Rollbar/WaiSpec.hs

@@ -64,6 +64,9 @@ spec = before getSettingsAndItemVar $
                 , requestUserIp = ""
                 }
             )
+          let exception = item >>= itemException
+          fmap exceptionClass exception `shouldBe` Just "ErrorCall"
+          fmap exceptionMessage exception `shouldBe` Just (Just "Boom")
 
 
 getSettingsAndItemVar :: IO (Settings, MVar Item)
@@ -105,3 +108,9 @@ createItemFake itemVar item = do
   requestModifier <- getRequestModifier
   void $ liftIO $ tryPutMVar itemVar $
     item { itemRequest = requestModifier <$> itemRequest item }
+
+itemException :: Item -> Maybe Exception
+itemException item =
+  case bodyPayload $ itemBody item of
+    PayloadTrace trace -> Just $ traceException trace
+    _ -> Nothing

rollbar-yesod/ChangeLog.md

@@ -2,6 +2,15 @@
 
 All notable changes to this project will be documented in this file.
 
+## [1.2.0] - 2026-08-18
+
+### Changed
+
+- **Breaking:** captured exceptions are now reported with the exception type
+  name as the Rollbar class and the rendered text as message and description.
+  Upgrading re-groups existing items once; see the rollbar-client 1.2.0 entry.
+  Requires rollbar-client >= 1.2 and rollbar-wai >= 1.2.
+
 ## [1.1.0] - 2024-05-28
 
 ### Changed

rollbar-yesod/package.yaml

@@ -1,5 +1,5 @@
 name: rollbar-yesod
-version: 1.1.1
+version: 1.2.0
 github: "stackbuilders/rollbar-haskell"
 license: MIT
 author: "Stack Builders Inc."
@@ -40,8 +40,8 @@ _exe-ghc-options: &exe-ghc-options
 library:
   source-dirs: src
   dependencies:
-    - rollbar-client >= 1.0 && < 2
-    - rollbar-wai >= 1.0 && < 2
+    - rollbar-client >= 1.2 && < 2
+    - rollbar-wai >= 1.2 && < 2
     - unliftio >= 0.2 && < 1
     - wai >= 3.2 && < 4
     - yesod-core >= 1.6 && < 2

rollbar-yesod/rollbar-yesod.cabal

@@ -5,7 +5,7 @@ cabal-version: 1.12
 -- see: https://github.com/sol/hpack
 
 name:           rollbar-yesod
-version:        1.1.1
+version:        1.2.0
 synopsis:       Provides error reporting capabilities to Yesod applications through Rollbar API.
 
 description:    Please see the README on GitHub at
@@ -44,8 +44,8 @@ library
   ghc-options: -Wall
   build-depends:
       base >=4.18 && <5
-    , rollbar-client >=1.0 && <2
-    , rollbar-wai >=1.0 && <2
+    , rollbar-client >=1.2 && <2
+    , rollbar-wai >=1.2 && <2
     , unliftio >=0.2 && <1
     , wai >=3.2 && <4
     , yesod-core >=1.6 && <2