acquire-0.2.0.1: library/Acquire/IO.hs

module Acquire.IO
where

import Acquire.Prelude
import Acquire.Acquire


acquire :: Acquire resource -> (resource -> IO a) -> IO a
acquire (Acquire io) handle =
  bracket io snd (handle . fst)