# Pastebin BU5Mp0WE
createStuff :: CInt -- ^ n
            -> IO (Maybe (ForeignPtr CChar))
createStuff n = do
  fmap (newForeignPtr p_free) . mf <$> c_makeStuff n
  where mf p
          | p == nullPtr = Nothing
          | otherwise = Just p