1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
module GitLsTreeRecursively where
import qualified Github.GitData.Trees as Github
import Data.List (intercalate)
main = do
possibleTree <- Github.nestedTree "thoughtbot" "paperclip" "fe114451f7d066d367a1646ca7ac10e689b46844"
case possibleTree of
(Left error) -> putStrLn $ "Error: " ++ show error
(Right tree) -> putStrLn $ formatTree tree
formatTree tree =
intercalate "\n" $ map formatGitTree $ Github.treeGitTrees tree
formatGitTree gitTree =
(Github.gitTreeMode gitTree) ++ " " ++
(Github.gitTreeType gitTree) ++ " " ++
(Github.gitTreeSha gitTree) ++ "\t" ++
(Github.gitTreePath gitTree)
|
