darcs-2.12.0: src/Darcs/Util/Environment.hs

module Darcs.Util.Environment
    (
      maybeGetEnv
    ) where

import Prelude ()
import Darcs.Prelude

import System.Environment ( getEnv )

import Darcs.Util.Exception ( catchall )

maybeGetEnv :: String
            -> IO (Maybe String)
maybeGetEnv s = fmap Just (getEnv s) `catchall` return Nothing -- err can only be isDoesNotExist