module GHC.IO where

import GHC.Types

failIO :: [Char] -> IO a