preamble 0.0.7 → 0.0.8

raw patch · 2 files changed

+5/−4 lines, 2 files

Files

• preamble.cabal +1/−1
• src/Preamble/Trace.hs +4/−3

@@ -1,5 +1,5 @@ name:                  preamble-version:               0.0.7+version:               0.0.8 synopsis:              Yet another prelude. description:           A prelude built on basic-prelude. homepage:              https://github.com/swift-nav/preamble

@@ -18,10 +18,11 @@ import           Data.Aeson import           Data.Aeson.Encode import qualified Data.HashMap.Strict    as M+import           Data.Text              hiding (singleton) import qualified Data.Text.Lazy         as LT import           Data.Text.Lazy.Builder import           Data.Time-import           Preamble.Prelude+import           Preamble.Prelude       hiding (null) import           Preamble.Types import           System.Log.FastLogger @@ -55,9 +56,9 @@ -- trace :: MonadCtx c m => (Text -> m ()) -> Text -> Pairs -> m () trace logN e ps = do-  t <- liftIO getCurrentTime-  let preamble = [ "event" .= e, "time" .= t ]   p <- view cPreamble+  t <- liftIO getCurrentTime+  let preamble = bool [ "event" .= e, "time" .= t ] [ "time" .= t ] $ null e   logN $ LT.toStrict $ toLazyText $ (<> singleton '\n') $     encodeToTextBuilder $ Object $ M.fromList $ preamble <> p <> ps