Add SSH public key API samples

Author: toddmohney

samples/Users/PublicSSHKeys/CreatePublicSSHKey.hs

@@ -0,0 +1,22 @@
+{-# 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.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
+
+newPublicSSHKey :: PK.NewPublicSSHKey
+newPublicSSHKey =
+    PK.NewPublicSSHKey
+        { PK.newPublicSSHKeyKey = "test-key"
+        , PK.newPublicSSHKeyTitle = "some-name-for-your-key"
+        }

samples/Users/PublicSSHKeys/DeletePublicSSHKey.hs

@@ -0,0 +1,14 @@
+{-# LANGUAGE OverloadedStrings #-}
+module Main (main) where
+
+import GitHub.Data.Id (Id (..))
+import qualified GitHub.Endpoints.Users.PublicSSHKeys as PK
+import qualified GitHub.Auth as Auth
+
+main :: IO ()
+main = do
+  let auth = Auth.OAuth "auth_token"
+  ePublicSSHKey <- PK.deleteUserPublicSSHKey' auth (Id 18530161)
+  case ePublicSSHKey of
+    (Left err) -> putStrLn $ "Error: " ++ (show err)
+    (Right _) -> putStrLn $ "Deleted public SSH key!"

samples/Users/PublicSSHKeys/ListPublicSSHKeys.hs

@@ -0,0 +1,24 @@
+{-# 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)
+import Data.Vector (toList)
+
+main :: IO ()
+main = do
+  -- Fetch the SSH public keys of another user
+  ePublicSSHKeys <- PK.publicSSHKeysFor' "github_name"
+  case ePublicSSHKeys of
+    (Left err) -> putStrLn $ "Error: " ++ (show err)
+    (Right publicSSHKeys) -> putStrLn $ intercalate "\n" $ map show (toList publicSSHKeys)
+
+  -- Fetch my SSH public keys
+  let auth = Auth.OAuth "auth_token"
+  eMyPublicSSHKeys <- PK.publicSSHKeys' auth
+  case eMyPublicSSHKeys of
+    (Left err) -> putStrLn $ "Error: " ++ (show err)
+    (Right publicSSHKeys) -> putStrLn $ intercalate "\n" $ map show (toList publicSSHKeys)
+

samples/Users/PublicSSHKeys/ShowPublicSSHKey.hs

@@ -0,0 +1,15 @@
+{-# LANGUAGE OverloadedStrings #-}
+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
+
+main :: IO ()
+main = do
+  let auth = Auth.OAuth "auth_token"
+  ePublicSSHKey <- PK.publicSSHKey' auth (Id 18528451)
+  case ePublicSSHKey of
+    (Left err) -> putStrLn $ "Error: " ++ (show err)
+    (Right publicSSHKey) -> putStrLn $ show publicSSHKey

samples/github-samples.cabal

@@ -269,3 +269,56 @@ executable github-teaminfo-for
     , text
     , github-samples
   default-language: Haskell2010
+
+executable github-create-public-ssh-key
+  main-is: CreatePublicSSHKey.hs
+  hs-source-dirs:
+      Users/PublicSSHKeys
+  ghc-options: -Wall
+  build-depends:
+      base
+    , base-compat
+    , github
+    , text
+    , github-samples
+  default-language: Haskell2010
+
+executable github-delete-public-ssh-key
+  main-is: DeletePublicSSHKey.hs
+  hs-source-dirs:
+      Users/PublicSSHKeys
+  ghc-options: -Wall
+  build-depends:
+      base
+    , base-compat
+    , github
+    , text
+    , github-samples
+  default-language: Haskell2010
+
+executable github-list-public-ssh-keys
+  main-is: ListPublicSSHKeys.hs
+  hs-source-dirs:
+      Users/PublicSSHKeys
+  ghc-options: -Wall
+  build-depends:
+      base
+    , base-compat
+    , github
+    , text
+    , github-samples
+    , vector
+  default-language: Haskell2010
+
+executable github-get-public-ssh-key
+  main-is: ShowPublicSSHKey.hs
+  hs-source-dirs:
+      Users/PublicSSHKeys
+  ghc-options: -Wall
+  build-depends:
+      base
+    , base-compat
+    , github
+    , text
+    , github-samples
+  default-language: Haskell2010