glean/github/Logger/GleanGlass.hs (38 lines of code) (raw):

{- Copyright (c) Meta Platforms, Inc. and affiliates. All rights reserved. This source code is licensed under the BSD-style license found in the LICENSE file in the root directory of this source tree. -} module Logger.GleanGlass (module Logger.GleanGlass) where import Data.Text import Logger.IO data GleanGlassLogger = GleanGlassLogger instance Semigroup GleanGlassLogger where _ <> _ = GleanGlassLogger instance Monoid GleanGlassLogger where mempty = GleanGlassLogger runLog :: Logger -> GleanGlassLogger -> IO () runLog _ _ = return () setSuccess :: Bool -> GleanGlassLogger setSuccess _ = GleanGlassLogger setError :: Text -> GleanGlassLogger setError _ = GleanGlassLogger setTimeElapsedUs :: Int -> GleanGlassLogger setTimeElapsedUs _ = GleanGlassLogger setAllocatedBytes :: Int -> GleanGlassLogger setAllocatedBytes _ = GleanGlassLogger setFilepath :: Text -> GleanGlassLogger setFilepath _ = GleanGlassLogger setRepo :: Text -> GleanGlassLogger setRepo _ = GleanGlassLogger setSymbol :: Text -> GleanGlassLogger setSymbol _ = GleanGlassLogger setItemCount :: Int -> GleanGlassLogger setItemCount _ = GleanGlassLogger setRepoName :: Text -> GleanGlassLogger setRepoName _ = GleanGlassLogger setRepoHash :: Text -> GleanGlassLogger setRepoHash _ = GleanGlassLogger setMethod :: Text -> GleanGlassLogger setMethod _ = GleanGlassLogger