diff --git a/Git/Tree.hs b/Git/Tree.hs
index 9109c6e5f7..80a717a884 100644
--- a/Git/Tree.hs
+++ b/Git/Tree.hs
@@ -135,7 +135,10 @@ treeItemToTreeContent (TreeItem f m s) = case toTreeItemType m of
 treeItemToLsTreeItem :: TreeItem -> LsTree.TreeItem
 treeItemToLsTreeItem (TreeItem f mode sha) = LsTree.TreeItem
 	{ LsTree.mode = mode
-	, LsTree.typeobj = fmtObjectType BlobObject
+	, LsTree.typeobj = fmtObjectType $ case toTreeItemType mode of
+		Just TreeSubmodule -> CommitObject
+		Just TreeSubtree -> TreeObject
+		_ -> BlobObject
 	, LsTree.sha = sha
 	, LsTree.file = f
 	}