whoami integration

app/Kreg/Options/Auth.hs

@@ -2,8 +2,7 @@ module Kreg.Options.Auth (auth) where
 
 import           Kreg.UI.UserInput     (askLogins)
 import qualified Registry.Client       as C
-import           System.Directory      (getHomeDirectory)
-import           System.FilePath.Posix ((</>))
+import Kreg.TokenFileManager (save)
 
 auth :: IO ()
 auth = do
@@ -15,7 +14,5 @@ auth = do
             case res of
                 Nothing -> putStrLn "Authentication failed"
                 Just dt -> do
-                    homeDirectory <- getHomeDirectory
-                    writeFile (homeDirectory </> ".kregrch") (C.id_token dt)
-
+                    save dt
                     putStrLn "Authentication succeeded"

app/Kreg/Options/Whoami.hs

@@ -1,5 +1,18 @@
 module Kreg.Options.Whoami (whoami) where
 
+import qualified Kreg.TokenFileManager as TMF (read)
+import qualified Registry.Client as C (whoami)
+
+{-
+uri : /api/account
+prerequisites :
+   * token stored in ~/.kregrch
+-}
 whoami :: IO ()
-whoami = undefined
+whoami = do
+    token <- TMF.read
+    res <- C.whoami token
+    putStrLn (show res)
+
 
+-- TODO : JWT libs too young to works on jhipster particular configuration. We'll need to query the json api to have more details.

app/Kreg/TokenFileManager.hs

@@ -0,0 +1,19 @@
+module Kreg.TokenFileManager (save, Kreg.TokenFileManager.read) where
+
+import           System.FilePath.Posix ((</>))
+import           System.Directory      (getHomeDirectory)
+import qualified Registry.Client       as C
+
+filePath = do
+    homeDirectory <- getHomeDirectory
+    return $ homeDirectory </> ".kregrch"
+
+--save :: String -> IO ()
+save token = do
+    fp <- filePath
+    writeFile fp (C.id_token token)
+
+--read :: IO String
+read = do
+    fp <- filePath
+    readFile fp

kreg.cabal

@@ -21,6 +21,7 @@ library
                      , http-client
                      , aeson
                      , lens
+                     , bytestring
   default-language:    Haskell2010
 
 executable kreg-exe

src/Registry/Client.hs

@@ -2,14 +2,15 @@
 {-# LANGUAGE OverloadedStrings   #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 
-module Registry.Client (auth, AuthResponseBody(..)) where
+module Registry.Client (auth, whoami, AuthResponseBody(..), AccountResponseBody(..)) where
 
 import           Control.Exception   as E
-import           Control.Lens        ((^?))
+import           Control.Lens        ((^?), (&), (.~))
 import           Data.Aeson
 import           GHC.Generics
 import           Network.HTTP.Client (HttpException (StatusCodeException))
 import qualified Network.Wreq        as R
+import Data.ByteString.Char8 (pack)
 
 data Auth = Auth {
     username   :: String,
@@ -21,11 +22,24 @@ data AuthResponseBody = AuthResponseBody {
     id_token :: String
 } deriving (Generic, Show)
 
+
+data AccountResponseBody = AccountResponseBody {
+    activated :: Bool,
+    authorities :: [String],
+    email :: String,
+    firstName :: String,
+    langKey :: String,
+    lastName :: String,
+    login :: String
+} deriving (Generic, Show)
+
 instance ToJSON Auth
 instance FromJSON AuthResponseBody
+instance FromJSON AccountResponseBody
 
 baseUrlServer = "http://localhost:8080/"
 authenticateResource = baseUrlServer ++ "api/authenticate"
+accountResource = baseUrlServer ++ "api/account"
 
 auth login password =
     let handler e@(StatusCodeException{}) = return Nothing
@@ -34,3 +48,13 @@ auth login password =
                         (body :: R.Response AuthResponseBody) <- R.asJSON r
                         return (body ^? R.responseBody)
     in operations `E.catch` handler
+
+
+whoami :: String -> IO (Maybe AccountResponseBody)
+whoami token =
+    let handler e@(StatusCodeException{}) = return Nothing
+        options = R.defaults & R.header "Authorization" .~ [pack ("Bearer " ++ token)]
+        operations = do r <- R.getWith options accountResource
+                        (body :: R.Response AccountResponseBody) <- R.asJSON r
+                        return (body ^? R.responseBody)
+    in operations `E.catch` handler