module Data.Git.Error
( GitException(..), Result )
where
import Control.Exception
import Data.Typeable
import Data.Text
import Prelude hiding (FilePath)
data GitException = RepositoryNotExist String
| RepositoryInvalid
| BlobCreateFailed
| BlobEmptyCreateFailed
| TreeCreateFailed
| TreeBuilderCreateFailed
| TreeBuilderInsertFailed
| TreeBuilderWriteFailed
| TreeLookupFailed
| TreeCannotTraverseBlob
| TreeEntryLookupFailed
| CommitCreateFailed
| CommitLookupFailed
| ReferenceCreateFailed
| RefCannotCreateFromPartialOid
| ReferenceLookupFailed
| ObjectLookupFailed
| ObjectIdTooLong
| ObjectRefRequiresFullOid
| OidCopyFailed
deriving (Show, Typeable)
type Result = Either Text
instance Exception GitException