printObject :: Object -> IO ()
printObject (GitCommit commit) = printCommit commit
printObject :: Object -> IO ()
printObject (GitCommit commit) = printCommit commit
printObject (GitCommit commit) = printCommit commit