Merge pull request haskell-github#390 from adomokos/ad-fix-samples-compile-warning

phadej · web-flow · commit c1b9fd4d502e · 2019-09-30T00:08:11.000+03:00
Fix compile time warnings
diff --git a/samples/Users/PublicSSHKeys/CreatePublicSSHKey.hs b/samples/Users/PublicSSHKeys/CreatePublicSSHKey.hs
@@ -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 =
diff --git a/samples/Users/PublicSSHKeys/ListPublicSSHKeys.hs b/samples/Users/PublicSSHKeys/ListPublicSSHKeys.hs
@@ -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)
diff --git a/samples/Users/PublicSSHKeys/ShowPublicSSHKey.hs b/samples/Users/PublicSSHKeys/ShowPublicSSHKey.hs
@@ -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
 
