modifyAndShow :: AccountConfig -> MergeRequest -> IO ()
modifyAndShow cfg m = do
  c  <- humanReadableTime $ created_at (m :: MergeRequest)
  u  <- humanReadableTime $ updated_at (m :: MergeRequest)
  b  <- builds bc
  putStrLn $
    unlines (lines (show m)
              ++ [ "Created At:      " ++ show c
                 , "Updated At:      " ++ show u
                 , "Builds:"])
  mapM_ (printBuild (web_url m) (iid (m :: MergeRequest))) b
  where
    bc = AccountConfig (key (cfg :: AccountConfig))
         (url cfg ++ "/repository/commits/" ++ T.unpack (sha m) ++ "/builds")
modifyAndShow :: AccountConfig -> MergeRequest -> IO ()
modifyAndShow cfg m = do
  c  <- humanReadableTime $ created_at (m :: MergeRequest)
  u  <- humanReadableTime $ updated_at (m :: MergeRequest)
  b  <- builds bc
  putStrLn $
    unlines (lines (show m)
              ++ [ "Created At:      " ++ show c
                 , "Updated At:      " ++ show u
                 , "Builds:"])
  mapM_ (printBuild (web_url m) (iid (m :: MergeRequest))) b
  where
    bc = AccountConfig (key (cfg :: AccountConfig))
         (url cfg ++ "/repository/commits/" ++ T.unpack (sha m) ++ "/builds")
modifyAndShow cfg m = do
  c  <- humanReadableTime $ created_at (m :: MergeRequest)
  u  <- humanReadableTime $ updated_at (m :: MergeRequest)
  b  <- builds bc
  putStrLn $
    unlines (lines (show m)
              ++ [ "Created At:      " ++ show c
                 , "Updated At:      " ++ show u
                 , "Builds:"])
  mapM_ (printBuild (web_url m) (iid (m :: MergeRequest))) b
  where
    bc = AccountConfig (key (cfg :: AccountConfig))
         (url cfg ++ "/repository/commits/" ++ T.unpack (sha m) ++ "/builds")