20 lines
449 B
Plaintext
20 lines
449 B
Plaintext
|
{-# LANGUAGE FlexibleContexts #-}
|
||
|
|
{-# LANGUAGE DataKinds #-}
|
||
|
|
|
||
|
|
module GHCup.Utils.Logger where
|
||
|
|
|
||
|
|
import GHCup.Types
|
||
|
|
|
||
|
|
import Control.Monad.IO.Class
|
||
|
|
import Control.Monad.Reader
|
||
|
|
import Data.Text ( Text )
|
||
|
|
import Optics
|
||
|
|
|
||
|
|
logWarn :: ( MonadReader env m
|
||
|
|
, LabelOptic' "loggerConfig" A_Lens env LoggerConfig
|
||
|
|
, MonadIO m
|
||
|
|
)
|
||
|
|
=> Text
|
||
|
|
-> m ()
|
||
|
|
|