6586633 · typeable/control-logger

git.iko.soy/typeable/control-logger

on master help sign in

Drop reopenable scribe

6586633Yuras Shumovich5 years ago

control-logger.cabal−1

@@ -11,7 +11,6 @@ library

11 if !impl(ghcjs)

12 exposed-modules: Control.Logger

13 Control.Logger.Katip

14− Control.Logger.Katip.Scribes.Reopenable

15 Control.Logger.Katip.Utils

14 Control.Logger.Katip.Utils

16 Control.Logger.Orphans

15 Control.Logger.Orphans

17 exposed-modules: Control.Logger.Internal

16 exposed-modules: Control.Logger.Internal

src/Control/Logger/Katip/Scribes/Reopenable.hsdeleted−19

@@ -1,19 +0,0 @@

1−module Control.Logger.Katip.Scribes.Reopenable where

2−

3−import Katip

4−import Katip.Scribes.Handle.FileOwner

5−

6−-- | Utility function to create scribe using the 'FileOwner'

7−-- inside. Returns new scribe and action to reopen the log

8−-- file. Reopening is performed asyncronously.

9−reopenableFileLog

10− :: FilePath

11− -> (forall a. LogItem a => ItemFormatter a)

12− -> PermitFunc

13− -> Verbosity

14− -> IO (Scribe, IO ())

15−reopenableFileLog fPath formatter permitF verbosity = do

16− owner <- newFileOwner fPath defaultFileOwnerSettings

17− s <- mkFileOwnerScribeWithFormatter formatter (ColorLog False)

18− owner permitF verbosity

19− return (s, fileOwnerControl owner ReopenMsg)