-- | Print a warning, but do not exit.
warn :: String -> IO ()
warn = hPutStrLn stderr . (++) "Warning: "
warn :: String -> IO ()
warn = hPutStrLn stderr . (++) "Warning: "
warn = hPutStrLn stderr . (++) "Warning: "