done refactoring

src/Navigation.purs

@@ -294,9 +294,9 @@ layout0 layout =
          else outerLayout1
       , rs bs      ]
     ls = over _render \render d p s c ->
-      [div [className "col-md-3"] (render d p s c)]
+      [div [className "col-md-2"] (render d p s c)]
     rs = over _render \render d p s c ->
-      [ div [className "col-md-8"] (render d p s c) ]
+      [ div [className "col-md-10"] (render d p s c) ]
     cont = over _render \render d p s c ->
       [ div [ className "row" ] (render d p s c) ]
 

src/Users/Actions.purs

+module Users.Actions
+       (module Users.Actions.API)
+       where
+
+import Users.Actions.API

src/Users/Actions/API.purs

+module Users.Actions.API
+       where
+
+import Users.Types.Types
+
+import Control.Monad.Aff (Aff, attempt, launchAff)
+import Control.Monad.Aff.Class (liftAff)
+import Control.Monad.Aff.Console (log)
+import Data.Argonaut (decodeJson)
+import Data.Either (Either(..))
+import Data.HTTP.Method (Method(..))
+import Data.Identity (Identity(..))
+import Network.HTTP.Affjax (AJAX, affjax, defaultRequest, get)
+import Prelude (pure, show, unit, bind, discard, (<<<), ($), (<>))
+
+
+user userID = launchAff $ do
+  res <- get "http://localhost:8008/node/452146"
+  pure res

src/Users/Specs/Renders.purs

 module Users.Specs.Renders
        where
 
+import Control.Monad.Aff.Class (liftAff)
 import Data.Tuple (Tuple(..))
-import Prelude (($), (<<<), (<>))
+import Prelude (($), (<<<))
 import React (ReactElement)
-import React.DOM (div, h1, h3, h4, img, li, span, text, ul)
-import React.DOM.Props (_id, className, src)
+import React.DOM (div, h4, li, span, text, ul)
+import React.DOM.Props (_id, className)
 import Thermite (Render)
 import Users.Types.Types (Action, State)
 

src/Users/Types/Types.purs

@@ -3,6 +3,8 @@ module Users.Types.Types where
 import Brevets as B
 import Control.Monad.Aff.Console (CONSOLE)
 import DOM (DOM)
+import Data.Date (Date)
+import Data.Generic (class Generic)
 import Network.HTTP.Affjax (AJAX)
 import Prelude (id, void)
 import Projects as PS
@@ -40,3 +42,54 @@ performAction NoOp _ _ = void do
   modifyState id
 performAction _ _ _ = void do
   modifyState id
+
+
+-- id	452146
+-- typename	41
+-- userId	1
+-- parentId	452132
+-- name	"Pierre DEMUGNIER"
+-- date	"2018-06-18T14:27:50.670952Z"
+-- hyperdata
+-- bureau	"V.305"
+-- atel	""
+-- fax	""
+-- aprecision	""
+-- service2	null
+-- groupe	""
+-- service	"ARMINES"
+-- lieu	"Paris"
+-- pservice	""
+-- date_modification	"07/06/2018"
+-- pfonction	""
+-- fonction	"Service Développement Partenarial - Chargé de Projet France & International"
+-- url	""
+-- statut	null
+-- prenom	"Pierre"
+-- idutilentite	"1055"
+-- afonction	""
+-- grprech	""
+-- nom	"DEMUGNIER"
+-- entite	"Armines"
+-- entite2	null
+-- id	"11002"
+-- tel	"01.40.51.93.66"
+-- idutilsiecoles	null
+-- groupe2	null
+-- sexe	"1"
+-- mail	"pierre.demugnier@mines-paristech.fr"
+-- actif	"1"
+
+type User =
+  {
+    id :: Int,
+    typename :: Int,
+    userId :: Int,
+    parentId :: Int,
+    name :: String,
+    date :: Date,
+    hyperData :: HyperData
+  }
+
+type HyperData =
+  {}