classy-influxdb-simple 0.1.0.1 → 0.1.0.2

raw patch · 3 files changed

+15/−11 lines, 3 filesdep +vector

Dependencies added: vector

Files

• classy-influxdb-simple.cabal +2/−1
• src/Database/InfluxDB/Simple/Classy.hs +0/−1
• src/Database/InfluxDB/Simple/Classy/Types.hs +13/−9

@@ -1,5 +1,5 @@ name:                classy-influxdb-simple-version:             0.1.0.1+version:             0.1.0.2 synopsis:            Super simple InfluxDB package in Classy-MTL style -- description: homepage:            https://github.com/mankyKitty/classy-influxdb-simple#readme@@ -25,6 +25,7 @@                      , bytestring                      , text                      , async-io-either+                     , vector   default-language:    Haskell2010  source-repository head

@@ -6,7 +6,6 @@   , queryDataToCSV   ) where - import           Control.Lens                          (to, view, (.~), (^.)) import           Control.Monad.Error.Lens              (throwing) 

@@ -2,8 +2,19 @@ {-# LANGUAGE GeneralizedNewtypeDeriving #-} {-# LANGUAGE OverloadedStrings          #-} {-# LANGUAGE TemplateHaskell            #-}-{-# LANGUAGE CPP #-}-module Database.InfluxDB.Simple.Classy.Types where+module Database.InfluxDB.Simple.Classy.Types+  ( InfluxRqType (..)+  , ToLine (..)+  , IsDb (..)+  , InfluxQuery (..)+  , InfluxDBConfig (..)+  , HasInfluxDBConfig (..)+  , InfluxDbError (..)+  , AsInfluxDbError (..)+  , CanInflux+  , basicInfluxOpts+  , rqWinCode+  ) where  import           Control.Exception      (SomeException) import           Control.Lens           (makeClassy, makeClassyPrisms, (.~),@@ -18,10 +29,8 @@  import           Data.Text              (Text) -#if VERSION_vector import           Data.Vector            (Vector) import qualified Data.Vector            as V-#endif  import           GHC.Word               (Word32) @@ -45,16 +54,11 @@ instance ToLine a => ToLine [a] where   toLine = BS8.unlines . fmap toLine -#if VERSION_vector instance ToLine a => ToLine (Vector a) where   toLine = BS8.unlines . V.toList . fmap toLine-#endif  class IsDb a where   toDbName :: a -> Text--newtype Count = Count Word32-  deriving (Eq, Show, Ord, Num)  newtype InfluxQuery = InfluxQuery ByteString   deriving (Eq, Show)