graninas/Hydra
1
1
Fork 0
mirror of https://github.com/graninas/Hydra.git synced 2024-12-26 02:23:36 +03:00
Code Issues Projects Releases Wiki Activity

warnings top signature

Browse Source
This commit is contained in:
Daneel Yaitskov 2020-05-09 16:34:11 -07:00
parent d16e711bfe
commit 982ec55917
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/Hydra/src/Hydra/Core/Logger/Impl/HsLoggerChurchI.hs
View File

@ -2,7 +2,12 @@ module Hydra.Core.Logger.Impl.HsLoggerChurchI where
import Hydra.Prelude
import Hydra.Core.Logger.Impl.HsLogger (HsLoggerHandle)
import Hydra.Core.Logger.Language (LoggerF)
import qualified Hydra.Core.Logger.Impl.HsLoggerInterpreter as I
runLoggerL :: Maybe HsLoggerHandle -> F LoggerF () -> IO ()
runLoggerL (Just h) l = foldF (I.interpretLoggerF h) l
runLoggerL Nothing _ = pure ()