main :: IO ()
main = gtLog >>= mapM_ printCommit
    where

    printCommit c = putStrLn $ unwords
        [ take 7 $ show $ untag $ commitOid c
        , Text.unpack $ head $ Text.lines $ commitLog c
        ]
main :: IO ()
main = gtLog >>= mapM_ printCommit
    where

    printCommit c = putStrLn $ unwords
        [ take 7 $ show $ untag $ commitOid c
        , Text.unpack $ head $ Text.lines $ commitLog c
        ]
main = gtLog >>= mapM_ printCommit
    where

    printCommit c = putStrLn $ unwords
        [ take 7 $ show $ untag $ commitOid c
        , Text.unpack $ head $ Text.lines $ commitLog c
        ]