{-# OPTIONS_GHC -fno-warn-orphans #-}

{- | Orphan instance for the internal logger. -}
module Database.PostgreSQL.Orphan where

import           Data.Text                      ( unpack )
import           Database.PostgreSQL.Logger

instance Logger IO where
  logDebug :: Text -> IO ()
logDebug = String -> IO ()
putStrLn (String -> IO ()) -> (Text -> String) -> Text -> IO ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> String
unpack
  logInfo :: Text -> IO ()
logInfo  = String -> IO ()
putStrLn (String -> IO ()) -> (Text -> String) -> Text -> IO ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> String
unpack
  logError :: Text -> IO ()
logError = String -> IO ()
putStrLn (String -> IO ()) -> (Text -> String) -> Text -> IO ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> String
unpack