xdg-basedir-compliant-1.0.2: src/System/XDG/Error.hs

module System.XDG.Error where

import           Control.Exception


data XDGError
  = FileNotFound FilePath
  | NoReadableFile
  | MissingEnv String
  deriving (Eq, Show)

instance Exception XDGError


throwIOLeft :: Exception e => Either e a -> IO a
throwIOLeft = either throwIO pure