module Blockchain.Output where import Control.Monad.Logger import qualified Data.ByteString.Char8 as BC import System.GlobalLock import System.Log.FastLogger printLogMsg::Loc->LogSource->LogLevel->LogStr->IO () --printLogMsg loc logSource level msg = do printLogMsg _ _ _ msg = do lock $ putStrLn $ BC.unpack $ fromLogStr msg printToFile::FilePath->Loc->LogSource->LogLevel->LogStr->IO () --printLogMsg loc logSource level msg = do printToFile path _ _ _ msg = do lock $ appendFile path $ BC.unpack (fromLogStr msg) ++ "\n"