1 2 3 4 5 6 7 8
module Vulnerable where import Foreign.Ptr (Ptr) foreign import ccall "danger" c_danger :: Ptr a -> IO () firstItem :: [Int] -> Int firstItem xs = head xs