diff options
Diffstat (limited to 'Git/Types.hs')
| -rw-r--r-- | Git/Types.hs | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/Git/Types.hs b/Git/Types.hs index deb14ebd4..64d418a04 100644 --- a/Git/Types.hs +++ b/Git/Types.hs @@ -48,3 +48,18 @@ instance Show Ref where type Branch = Ref type Sha = Ref type Tag = Ref + +{- Types of objects that can be stored in git. -} +data ObjectType = BlobObject | CommitObject | TreeObject + +instance Show ObjectType where + show BlobObject = "blob" + show CommitObject = "commit" + show TreeObject = "tree" + +readObjectType :: String -> Maybe ObjectType +readObjectType "blob" = Just BlobObject +readObjectType "commit" = Just CommitObject +readObjectType "tree" = Just TreeObject +readObjectType _ = Nothing + |