packages feed

tilia-0.1.0.0: corpora/vendored/other/cpp/arguments-at-the-end-behind-alternatives-out.hs

{-# LANGUAGE CPP #-}

module Storage.Create (createFor) where

import Storage.Handle

createFor :: FilePath -> Mode -> IO Handle
createFor path mode =
  createWith
    path
    mode
#if MIN_VERSION_storage(0,3,0)
    closeOnExec
    inheritable
#elif MIN_VERSION_storage(0,2,0)
    closeOnExec
#endif