Added older compiler compatablity.

bitnomial · Jul 26, 2018 · 0a77531 · 0a77531
1 parent 35b2f5e
commit 0a77531
Show file tree

Hide file tree

Showing 10 changed files with 23 additions and 12 deletions.
diff --git a/prometheus.cabal b/prometheus.cabal
@@ -1,5 +1,5 @@
 name:                prometheus
-version:             2.0.0
+version:             2.0.1
 synopsis:            Prometheus Haskell Client
 homepage:            http://github.com/bitnomial/prometheus
 bug-reports:         http://github.com/bitnomial/prometheus/issues

diff --git a/src/System/Metrics/Prometheus/Concurrent/Registry.hs b/src/System/Metrics/Prometheus/Concurrent/Registry.hs
@@ -8,6 +8,7 @@ module System.Metrics.Prometheus.Concurrent.Registry
        ) where
 
 
+import           Control.Applicative                        ((<$>))
 import           Control.Concurrent.MVar                    (MVar,
                                                              modifyMVarMasked,
                                                              newMVar, withMVar)

diff --git a/src/System/Metrics/Prometheus/Concurrent/RegistryT.hs b/src/System/Metrics/Prometheus/Concurrent/RegistryT.hs
@@ -2,6 +2,7 @@
 
 module System.Metrics.Prometheus.Concurrent.RegistryT where
 
+import           Control.Applicative                           ((<$>))
 import           Control.Monad.IO.Class                        (MonadIO, liftIO)
 import           Control.Monad.Trans.Class                     (MonadTrans)
 import           Control.Monad.Trans.Reader                    (ReaderT (..),

diff --git a/src/System/Metrics/Prometheus/Http/Scrape.hs b/src/System/Metrics/Prometheus/Http/Scrape.hs
@@ -8,6 +8,7 @@ module System.Metrics.Prometheus.Http.Scrape
        )
        where
 
+import           Control.Applicative                            ((<$>))
 import           Control.Monad.IO.Class                         (MonadIO,
                                                                  liftIO)
 import           Data.Text                                      (Text)

diff --git a/src/System/Metrics/Prometheus/Metric/Counter.hs b/src/System/Metrics/Prometheus/Metric/Counter.hs
@@ -9,6 +9,7 @@ module System.Metrics.Prometheus.Metric.Counter
        ) where
 
 
+import           Control.Applicative  ((<$>))
 import           Data.Atomics.Counter (AtomicCounter, incrCounter, newCounter)
 
 

diff --git a/src/System/Metrics/Prometheus/Metric/Gauge.hs b/src/System/Metrics/Prometheus/Metric/Gauge.hs
@@ -11,7 +11,8 @@ module System.Metrics.Prometheus.Metric.Gauge
        , modifyAndSample
        ) where
 
-import           Data.IORef (IORef, atomicModifyIORef', newIORef)
+import           Control.Applicative ((<$>))
+import           Data.IORef          (IORef, atomicModifyIORef', newIORef)
 
 
 newtype Gauge = Gauge { unGauge :: IORef Double }

diff --git a/src/System/Metrics/Prometheus/Metric/Histogram.hs b/src/System/Metrics/Prometheus/Metric/Histogram.hs
@@ -12,11 +12,13 @@ module System.Metrics.Prometheus.Metric.Histogram
        ) where
 
 
-import           Control.Monad (void)
-import           Data.Bool     (bool)
-import           Data.IORef    (IORef, atomicModifyIORef', newIORef, readIORef)
-import           Data.Map      (Map)
-import qualified Data.Map      as Map
+import           Control.Applicative ((<$>))
+import           Control.Monad       (void)
+import           Data.Bool           (bool)
+import           Data.IORef          (IORef, atomicModifyIORef', newIORef,
+                                      readIORef)
+import           Data.Map            (Map)
+import qualified Data.Map            as Map
 
 
 newtype Histogram = Histogram { unHistogram :: IORef HistogramSample }

diff --git a/src/System/Metrics/Prometheus/MetricId.hs b/src/System/Metrics/Prometheus/MetricId.hs
@@ -2,11 +2,13 @@
 
 module System.Metrics.Prometheus.MetricId where
 
-import           Data.Map    (Map)
-import qualified Data.Map    as Map
-import           Data.String (IsString)
-import           Data.Text   (Text)
-import           Prelude     hiding (null)
+import           Data.Map       (Map)
+import qualified Data.Map       as Map
+import           Data.Monoid    ()
+import           Data.Semigroup ()
+import           Data.String    (IsString)
+import           Data.Text      (Text)
+import           Prelude        hiding (null)
 
 
 newtype Name = Name { unName :: Text } deriving (Show, Eq, Ord, IsString, Monoid, Semigroup)

diff --git a/src/System/Metrics/Prometheus/Registry.hs b/src/System/Metrics/Prometheus/Registry.hs
@@ -10,6 +10,7 @@ module System.Metrics.Prometheus.Registry
        , sample
        ) where
 
+import           Control.Applicative                        ((<$>))
 import           Control.Exception                          (Exception, throw)
 import           Data.Map                                   (Map)
 import qualified Data.Map                                   as Map

diff --git a/src/System/Metrics/Prometheus/RegistryT.hs b/src/System/Metrics/Prometheus/RegistryT.hs
@@ -2,6 +2,7 @@
 
 module System.Metrics.Prometheus.RegistryT where
 
+import           Control.Applicative                        ((<$>))
 import           Control.Monad.IO.Class                     (MonadIO, liftIO)
 import           Control.Monad.Trans.Class                  (MonadTrans)
 import           Control.Monad.Trans.State.Strict           (StateT (..),