Adding login/logout functions thanks to a client session

2 files changed, 8 insertions, 4 deletions

diff --git a/src/client/Main.elm b/src/client/Main.elm
index 18a4aba..e112144 100644
--- a/src/client/Main.elm
+++ b/src/client/Main.elm
@@ -2,6 +2,8 @@ module Main
   ( main
   ) where
 
+{-| @docs main -}
+
 import Graphics.Element exposing (..)
 
 import Html exposing (Html)
@@ -16,6 +18,8 @@ import Update exposing (Action(..), actions, updateModel)
 
 import View.Page exposing (renderPage)
 
+{-| main -}
+
 main : Signal Html
 main = Signal.map renderPage model
 
diff --git a/src/client/View/Page.elm b/src/client/View/Page.elm
index ca8efc9..73afed9 100644
--- a/src/client/View/Page.elm
+++ b/src/client/View/Page.elm
@@ -27,10 +27,10 @@ renderPage model =
         []
         ([ tr
             []
-            [ td [] [ text "Utilisateur" ]
-            , td [] [ text "Nom" ]
-            , td [] [ text "Prix" ]
-            , td [] [ text "Date" ]
+            [ th [] [ text "Utilisateur" ]
+            , th [] [ text "Nom" ]
+            , th [] [ text "Prix" ]
+            , th [] [ text "Date" ]
             ]
         ] ++ (List.map renderPayment model.payments))
     ]