path: root/testsuite/tests/safeHaskell/unsafeLibs/Dep04.hs

module Dep04 where

import Foreign.Ptr
import Foreign.ForeignPtr

bad :: ForeignPtr a -> Ptr a
bad = unsafeForeignPtrToPtr