main :: IO ()
main = do
  putStrLn <- currentBranch
  putStrLn <- remoteUrl
  return ()
main :: IO ()
main = do
  putStrLn <- currentBranch
  putStrLn <- remoteUrl
  return ()
main = do
  putStrLn <- currentBranch
  putStrLn <- remoteUrl
  return ()