aip-0.1.0: src/Data/Aviation/Aip/Log.hs

{-# LANGUAGE NoImplicitPrelude #-}

module Data.Aviation.Aip.Log(
  aiplog
, aiplog'
) where

import Control.Category((.))
import Control.Monad.IO.Class(MonadIO(liftIO))
import Data.String(String)
import System.IO(hPutStrLn, stderr, IO)

aiplog ::
  MonadIO f =>
  String
  -> f ()
aiplog =
  liftIO . aiplog'

aiplog' ::
  String
  -> IO ()
aiplog' =
  hPutStrLn stderr