[NAV|FIX] Login/signup link.

src/Navigation.purs

@@ -93,7 +93,6 @@ _loginAction = prism LoginA \action ->
     _-> Left action
 
 
-
 _addCorpusState:: Lens' AppState AC.State
 _addCorpusState = lens (\s -> s.addCorpusState) (\s ss -> s{addCorpusState = ss})
 
@@ -281,8 +280,6 @@ sidebarnavSpec = simpleSpec performAction render
                    ]
                  ]
                ]
----------------------------------------------------------------------------
----------------------------------------------------------------------------
 ---------------------------------------------------------------------------
              , divDropdownRight
             ]
@@ -290,48 +287,24 @@ sidebarnavSpec = simpleSpec performAction render
         ]
       ]
 
+--divDropdownRight :: Render AppState props Action
 divDropdownRight :: ReactElement
 divDropdownRight = ul [className "nav navbar-nav pull-right"]
                [
-                 -- TODO if logged in : enable dropdown
-                 --li [className "dropdown"]
-                 --[
-                   a [
-                     className "dropdown-toggle navbar-text"
-                     , _data {toggle : "dropdown"}
-                     -- , onClick \_ -> dispatch $ Login
-                     , role  "button"
-                     , title "Username" 
-                     ]
-                   
-                   -- FIXME not sure about the className "login"
-                   [ i [ className "login" ] []
-                   , span [ aria {hidden : true}
-                          -- TODO if logged in
-                          --, className "glyphicon glyphicon-user"
-                          -- else
+                 -- TODO if logged in : enable dropdown to logout
+                 li [className "dropdown"]
+                 [
+                   a [ aria {hidden : true}
                      , className "glyphicon glyphicon-log-in"
+                     , href "#/login"
                      , style {color:"white"} 
+                     -- TODO hover: bold
                       ]
-                     []
                     -- TODO if logged in
                     --, text " username"
                     -- else
-                    , text " Login / Signup"
+                   [text " Login / Signup"]
                   ]
---                 , ul [className "dropdown-menu"]
---                   [
---                   , li [ className"divider"]
---                     []
---                   , li []
---                      -- TODO if logged in show logout
---                     [ a [tabIndex (-1), href "/auth/login" ]
---                       [ span [className "glyphicon glyphicon-log-in",aria {hidden : true}] []
---                       , text " Logout"
---                       ]
---                     ]
---                   ]
-                 --]
                ]
 
 layoutSpec :: forall eff props. Spec (E eff) AppState props Action