1. Stefan Saasen
  2. git-in-haskell-from-the-bottom-up

Commits

Stefan Saasen  committed 95b327c

Fix object type mapping

  • Participants
  • Parent commits 6b2c1ef
  • Branches master

Comments (0)

Files changed (1)

File src/Git/Store/Blob.hs

View file
  • Ignore whitespace
    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