preamble 0.0.46 → 0.0.47

raw patch · 4 files changed

+14/−9 lines, 4 files

Files

Shakefile.hs +2/−2
preamble.cabal +1/−1
src/Preamble/Prelude.hs +10/−0
src/Preamble/Stats.hs +1/−6

Shakefile.hs view

@@ -16,11 +16,11 @@ main :: IO () main = shakeMain $ do   let pats =-        [ "stack.yaml"+        [ "stack*.yaml"         , "Shakefile.hs"         , "src//*.hs"         ]-      pats' = delete "stack.yaml" pats+      pats' = delete "stack*.yaml" pats    -- | Haskell rules.   --

preamble.cabal view

@@ -1,5 +1,5 @@ name: preamble-version: 0.0.46+version: 0.0.47 cabal-version: >=1.22 build-type: Simple license: MIT

src/Preamble/Prelude.hs view

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP               #-} {-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE OverloadedStrings #-} @@ -14,6 +15,7 @@   , maybeThrowIO'   , boolThrowIO   , textFromString+  , textShow   , (-/-)   , (-|-)   , (-.-)@@ -71,6 +73,14 @@ -- textFromString :: String -> Text textFromString = pack++textShow :: Show a => a -> Text+textShow =+#if MIN_VERSION_basic_prelude(0,6,1)+  textFromString . show+#else+  show+#endif  -- | </> for IsString. --

src/Preamble/Stats.hs view

@@ -1,4 +1,3 @@-{-# LANGUAGE CPP               #-} {-# LANGUAGE FlexibleContexts  #-} {-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE OverloadedStrings #-}@@ -23,11 +22,7 @@ stats metric name value tags = do   labels <- (<> tags) <$> view scLabels   prefix <- ap (`bool` mempty) T.null <$> view scPrefix-#if MIN_VERSION_basic_prelude(0,6,1)-  let statsd = prefix <> name -:- textFromString (show value) -|- metric-#else-  let statsd = prefix <> name -:- show value -|- metric-#endif+  let statsd = prefix <> name -:- textShow value -|- metric       tagged = T.intercalate "," $ flip map labels $ uncurry (-:-)   stat <- view scStat   liftIO $ stat $ encodeUtf8 $ bool (statsd -|- "#" <> tagged) statsd $ null labels