git.fiddlerwoaroof.com
Browse code

clean: dead code elimination

Edward Langley authored on 10/10/2019 07:23:27
Showing 1 changed files
... ...
@@ -1,7 +1,6 @@
1 1
 (in-package :mfa-tool)
2 2
 
3 3
 (defvar *accounts* ())
4
-(defvar *main-credentials* (aws-sdk:make-credentials))
5 4
 (defun session-name ()
6 5
   (format nil "bootstrap~d" (+ 5000 (random 5000))))
7 6
 
... ...
@@ -27,7 +26,6 @@
27 26
           (mfa-serial-number *user_management_account_id*
28 27
                              user))
29 28
         (role-arn (role-arn account role)))
30
-    (let ((aws-sdk:*session* (aws-sdk:make-session :credentials *main-credentials*))))
31 29
     (loop
32 30
       (restart-case
33 31
           (return