Lib.hs

{-# OPTIONS_GHC -cpp -fglasgow-exts #-}
{- For Hugs, use the option -F"cpp -P -traditional" -}

module Lib where

import qualified Prelude


#ifdef __GLASGOW_HASKELL__
import qualified GHC.Base
unsafeCoerce = GHC.Base.unsafeCoerce#
#else
-- HUGS
import qualified IOExts
unsafeCoerce = IOExts.unsafeCoerce
#endif

-- Imports must come before declarations!
unsafeCoerce :: a -> b

__ :: any
__ = Prelude.error "Logical or arity value used"