Commits

Stefan Saasen committed 95b327c

Fix object type mapping

Comments (0)

Files changed (1)

src/Git/Store/Blob.hs

    char '\0'
    blob <- takeByteString
    return $ Blob blob (obj objType) sha1
-   where obj "commit"   = BBlob
+   where obj "commit"   = BCommit
          obj "tree"     = BTree
          obj "tag"      = BTag
          obj "blob"     = BBlob