Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
94 changes: 51 additions & 43 deletions control-logger.cabal
Original file line number Diff line number Diff line change
@@ -1,47 +1,55 @@
cabal-version: 2.4
name: control-logger
version: 0.1.0.0
synopsis: Logger used by all projects
license-file: LICENSE
build-type: Simple
cabal-version: 2.4
name: control-logger
version: 0.1.0.0
synopsis: Logger used by all projects
license-file: LICENSE
build-type: Simple

library
hs-source-dirs: src
ghc-options: -Wall
hs-source-dirs: src
ghc-options: -Wall

if !impl(ghcjs)
exposed-modules: Control.Logger
Control.Logger.Katip
Control.Logger.Katip.Utils
Control.Logger.Orphans
exposed-modules: Control.Logger.Internal
build-depends: base
, aeson
, bytestring
, control-has
, control-has-katip
, deepseq
, exceptions
, fast-logger
, http-client
, lens
, monad-logger
, mtl
, shakespeare
, text
, time
, unordered-containers
exposed-modules:
Control.Logger
Control.Logger.Katip
Control.Logger.Katip.Utils
Control.Logger.Orphans

exposed-modules: Control.Logger.Internal
Copy link
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

it looks strange... I don't see any deps from control-logger in hotels/portal frontend at all...

build-depends:
, aeson
, base >=4.11
, bytestring
, control-has
, control-has-katip
, deepseq
, exceptions
, fast-logger >=2.4.11
, http-client
, lens
, monad-logger
, mtl
, shakespeare
, text
, time
, unordered-containers

if !impl(ghcjs)
build-depends: katip >= 0.8.8.0
, optparse-applicative
default-language: Haskell2010
default-extensions: RankNTypes
DataKinds
FlexibleContexts
FlexibleInstances
LambdaCase
OverloadedStrings
ScopedTypeVariables
DeriveGeneric
ConstraintKinds
RecordWildCards
TypeSynonymInstances
build-depends:
, katip >=0.8.8.0
, optparse-applicative

default-language: Haskell2010
default-extensions:
ConstraintKinds
DataKinds
DeriveGeneric
FlexibleContexts
FlexibleInstances
LambdaCase
OverloadedStrings
RankNTypes
RecordWildCards
ScopedTypeVariables
TypeSynonymInstances
7 changes: 2 additions & 5 deletions src/Control/Logger.hs
Original file line number Diff line number Diff line change
Expand Up @@ -44,7 +44,9 @@ import Control.Has
import Control.Lens hiding (censoring)
import Control.Logger.Internal
import Control.Logger.Orphans ()
import Control.Monad
import Control.Monad.Catch
import Control.Monad.IO.Class
import qualified Data.List as List
import Data.Monoid
import Data.Text (Text)
Expand All @@ -54,11 +56,6 @@ import GHC.Stack
import Katip (ToObject (..))
import System.Log.FastLogger
import Text.Shakespeare.Text (st)
-- import Control.Monad.RWS (censor)
#if MIN_VERSION_mtl(2,3,0)
import Control.Monad
import Control.Monad.IO.Class
#endif

logError
:: (LoggingMonad r m)
Expand Down
4 changes: 1 addition & 3 deletions src/Control/Logger/Internal.hs
Original file line number Diff line number Diff line change
Expand Up @@ -16,14 +16,12 @@ module Control.Logger.Internal

import Control.Has
import Control.Lens
import Control.Monad.IO.Class
import Control.DeepSeq
import Data.Aeson (ToJSON, FromJSON, Object, Value(..))
import Data.Text (Text)
import Data.Monoid
import GHC.Stack
#if MIN_VERSION_mtl(2,3,0)
import Control.Monad.IO.Class
#endif


data LogSeverity
Expand Down