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"