{-# LANGUAGE CPP #-}
module UnsafeGetDLValue where
import DLValue

--unsafeDLValue :: DLValue -> anytype
#if defined(__NHC__) || defined(__PFE__)
unsafeGetDLValue DLValue = error "unsafeGetDLValue not implemented yet"
#else
unsafeGetDLValue :: DLValue -> a
unsafeGetDLValue (DLValue forall a. a
v) = a
forall a. a
v
#endif

-- This is unsafe, because the response from DLSym contains a DLValue of
-- a particular type. unsafeGetDLValue allows it to be used at any type.