fez2000
diff --git a/Collapse file
‎samples/Users/PublicSSHKeys/CreatePublicSSHKey.hs‎
Copy file name to clipboardExpand all lines: samples/Users/PublicSSHKeys/CreatePublicSSHKey.hs
+2-3Lines changed: 2 additions & 3 deletions b/Collapse file
‎samples/Users/PublicSSHKeys/CreatePublicSSHKey.hs‎
Copy file name to clipboardExpand all lines: samples/Users/PublicSSHKeys/CreatePublicSSHKey.hs
+2-3Lines changed: 2 additions & 3 deletions
diff --git a/Collapse file
‎samples/Users/PublicSSHKeys/ListPublicSSHKeys.hs‎
Copy file name to clipboardExpand all lines: samples/Users/PublicSSHKeys/ListPublicSSHKeys.hs
-1Lines changed: 0 additions & 1 deletion b/Collapse file
‎samples/Users/PublicSSHKeys/ListPublicSSHKeys.hs‎
Copy file name to clipboardExpand all lines: samples/Users/PublicSSHKeys/ListPublicSSHKeys.hs
-1Lines changed: 0 additions & 1 deletion
diff --git a/Collapse file
‎samples/Users/PublicSSHKeys/ShowPublicSSHKey.hs‎
Copy file name to clipboardExpand all lines: samples/Users/PublicSSHKeys/ShowPublicSSHKey.hs
-1Lines changed: 0 additions & 1 deletion b/Collapse file
‎samples/Users/PublicSSHKeys/ShowPublicSSHKey.hs‎
Copy file name to clipboardExpand all lines: samples/Users/PublicSSHKeys/ShowPublicSSHKey.hs
-1Lines changed: 0 additions & 1 deletion
@@ -4,15 +4,14 @@ module Main (main) where
 import qualified GitHub.Data.PublicSSHKeys as PK
 import qualified GitHub.Endpoints.Users.PublicSSHKeys as PK
 import qualified GitHub.Auth as Auth
-import Data.Text (Text)
 
 main :: IO ()
 main = do
   let auth = Auth.OAuth "auth_token"
   ePublicSSHKey <- PK.createUserPublicSSHKey' auth newPublicSSHKey
   case ePublicSSHKey of
-    (Left err) -> putStrLn $ "Error: " ++ (show err)
-    (Right publicSSHKey) -> putStrLn $ show publicSSHKey
+    Left err -> putStrLn $ "Error: " ++ show err
+    Right publicSSHKey -> print publicSSHKey
 
 newPublicSSHKey :: PK.NewPublicSSHKey
 newPublicSSHKey =
 
@@ -1,7 +1,6 @@
 {-# LANGUAGE OverloadedStrings #-}
 module Main (main) where
 
-import qualified GitHub.Data.PublicSSHKeys as PK
 import qualified GitHub.Endpoints.Users.PublicSSHKeys as PK
 import qualified GitHub.Auth as Auth
 import Data.List (intercalate)
 
@@ -2,7 +2,6 @@
 module Main (main) where
 
 import GitHub.Data.Id (Id (..))
-import qualified GitHub.Data.PublicSSHKeys as PK
 import qualified GitHub.Endpoints.Users.PublicSSHKeys as PK
 import qualified GitHub.Auth as Auth