Paraiso-0.3.1.5: Language/Paraiso/Failure.hs

{-# OPTIONS -Wall #-}

-- | a module for handling failure
module Language.Paraiso.Failure
    (
     module Control.Failure, unsafePerformFailure
    ) where

import Control.Failure
import System.IO.Unsafe

unsafePerformFailure :: IO a -> a
unsafePerformFailure = unsafePerformIO