diff --git a/calamity.cabal b/calamity.cabal
--- a/calamity.cabal
+++ b/calamity.cabal
@@ -4,10 +4,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 42032cd759481bc362a687c9f261f05fb54e2982b44be513fe52d1030db46b44
+-- hash: 7abac2efea437078125c5a92e9a9d5f3bef88949e3c3f3625cc91919091950b8
 
 name:           calamity
-version:        0.1.4.0
+version:        0.1.4.1
 synopsis:       A library for writing discord bots
 description:    Please see the README on GitHub at <https://github.com/nitros12/calamity#readme>
 category:       Network, Web
diff --git a/src/Calamity/HTTP/Internal/Types.hs b/src/Calamity/HTTP/Internal/Types.hs
--- a/src/Calamity/HTTP/Internal/Types.hs
+++ b/src/Calamity/HTTP/Internal/Types.hs
@@ -35,17 +35,14 @@
   deriving ( Generic )
 
 data DiscordResponseType
-  = -- | A good response
-    Good LB.ByteString
-    -- | We got a response but also exhausted the bucket
-  | ExhaustedBucket LB.ByteString Int -- ^ Retry after (milliseconds)
-    -- | We hit a 429, no response and ratelimited
-  | Ratelimited Int -- ^ Retry after (milliseconds)
-                Bool -- ^ Global ratelimit
-    -- | Discord's error, we should retry (HTTP 5XX)
-  | ServerError Int
-    -- | Our error, we should fail
-  | ClientError Int LB.ByteString
+  = Good LB.ByteString -- ^ A good response
+  | ExhaustedBucket -- ^ We got a response but also exhausted the bucket
+      LB.ByteString Int -- ^ Retry after (milliseconds)
+  | Ratelimited -- ^ We hit a 429, no response and ratelimited
+      Int -- ^ Retry after (milliseconds)
+      Bool -- ^ Global ratelimit
+  | ServerError Int -- ^ Discord's error, we should retry (HTTP 5XX)
+  | ClientError Int LB.ByteString -- ^ Our error, we should fail
 
 newtype GatewayResponse = GatewayResponse
   { url :: Text
diff --git a/src/Calamity/Metrics/Eff.hs b/src/Calamity/Metrics/Eff.hs
--- a/src/Calamity/Metrics/Eff.hs
+++ b/src/Calamity/Metrics/Eff.hs
@@ -5,7 +5,7 @@
     ( Counter
     , Gauge
     , Histogram
-    , HistogramSample
+    , HistogramSample(..)
     , MetricEff(..)
     , registerCounter
     , registerGauge