deepseq-bounded-0.5.0: test/Bottom.hs

-- XXX This file could be cleaned up a lot, but that's
-- not quite a priority at this moment...

  {-# LANGUAGE CPP #-}

  {-# LANGUAGE DeriveDataTypeable #-}

-------------------------------------------------------------------------------

#define USE_TRACE 1
-- This so can get an honest comparison for the user-defined datatypes;
-- if this is 0, the NFDataN instances will be derived via GHC.Generics.
-- (The NFData instances are derived in any case.)
#define USE_MANUAL_INSTANCES 0

-------------------------------------------------------------------------------

  module Bottom where

-------------------------------------------------------------------------------

  import Data.Maybe

  import Control.Exception
--import Control.Monad ( guard )
  import Data.Typeable ( Typeable )
  import Data.Typeable ( typeOf )

--import Util
  import Debug.Trace ( trace )
  import Control.DeepSeq

  import System.IO.Unsafe ( unsafePerformIO )

-------------------------------------------------------------------------------

  __ :: a
--bt'm = undefined
  __ = undefined
--__ = throw BottomedOut

-------------------------------------------------------------------------------

  data BottomedOut = BottomedOut
--data BottomedOut = ThisException | ThatException
    deriving (Show, Typeable)

  instance Exception BottomedOut

-------------------------------------------------------------------------------