module Graphics.HaGL.Util (
    warn
) where

import System.IO.Unsafe (unsafePerformIO)

warn :: String -> a -> a
warn :: forall a. String -> a -> a
warn String
msg a
res = forall a. IO a -> a
unsafePerformIO forall a b. (a -> b) -> a -> b
$ do
    String -> IO ()
putStrLn String
msg
    forall (m :: * -> *) a. Monad m => a -> m a
return a
res