git.iko.soy/ghcide
on 210de4e help sign in
ghcide/src/Development/IDE/Logger.hs
28 lines 871 B history raw
1-- Copyright (c) 2019 Digital Asset (Switzerland) GmbH and/or its affiliates. All rights reserved.
2-- SPDX-License-Identifier: Apache-2.0
4{-# LANGUAGE RankNTypes #-}
5-- | This is a compatibility module that abstracts over the
6-- concrete choice of logging framework so users can plug in whatever
7-- framework they want to.
8module Development.IDE.Logger
9 ( Handle(..)
10 , makeOneHandle
11 , makeNopHandle
12 ) where
14import qualified Data.Text as T
15import GHC.Stack
17data Handle = Handle {
18 logSeriousError :: HasCallStack => T.Text -> IO ()
19 , logInfo :: HasCallStack => T.Text -> IO ()
20 , logDebug :: HasCallStack => T.Text -> IO ()
21 , logWarning :: HasCallStack => T.Text -> IO ()
22 }
24makeNopHandle :: Handle
25makeNopHandle = makeOneHandle $ const $ pure ()
27makeOneHandle :: (HasCallStack => T.Text -> IO ()) -> Handle
28makeOneHandle x = Handle x x x x