Commit 3d385a7f authored by Sudhir Kumar's avatar Sudhir Kumar

login changes done

parent 95a636a5
...@@ -62,7 +62,8 @@ modalSpec sm t = over _render \render d p s c -> ...@@ -62,7 +62,8 @@ modalSpec sm t = over _render \render d p s c ->
[ div [ className "modal-content"] [ div [ className "modal-content"]
[ div [ className "modal-header"] [ div [ className "modal-header"]
[ h5 [ className "modal-title" ] [ h5 [ className "modal-title" ]
[ text t ] [ -- text t
]
, button [ _type "button" , button [ _type "button"
, className "close" , className "close"
, _data { dismiss : "modal"} , _data { dismiss : "modal"}
...@@ -103,7 +104,7 @@ renderSpec = simpleSpec performAction render ...@@ -103,7 +104,7 @@ renderSpec = simpleSpec performAction render
render :: Render State {} Action render :: Render State {} Action
render dispatch _ state _ = render dispatch _ state _ =
[ div [className "row"] [ div [className "row"]
[ div [className "col-sm-10 col-sm-push-1 col-md-6 col-md-push-3 col-lg-6 col-lg-push-3"] [ div [className "col-md-10 col-md-push-1"]
[ h2 [className "text-primary center m-a-2"] [ h2 [className "text-primary center m-a-2"]
[ i [className "material-icons md-36"] [text "control_point"] [ i [className "material-icons md-36"] [text "control_point"]
, span [className "icon-text"] [text "Gargantext"] , span [className "icon-text"] [text "Gargantext"]
...@@ -113,7 +114,7 @@ renderSpec = simpleSpec performAction render ...@@ -113,7 +114,7 @@ renderSpec = simpleSpec performAction render
[ div [className "card-block"] [ div [className "card-block"]
[ div [className "center"] [ div [className "center"]
[ h4 [className "m-b-0"] [ h4 [className "m-b-0"]
[ span [className "icon-text"] [ text "Connexion"] ] [ span [className "icon-text"] [ text "Login"] ]
, p [className "text-muted"] , p [className "text-muted"]
[ text $ "Login to your account or", [ text $ "Login to your account or",
a [ target "blank",href "https://iscpif.fr/services/applyforourservices/"] [text " ask to get an access"] a [ target "blank",href "https://iscpif.fr/services/applyforourservices/"] [text " ask to get an access"]
...@@ -138,7 +139,7 @@ renderSpec = simpleSpec performAction render ...@@ -138,7 +139,7 @@ renderSpec = simpleSpec performAction render
[ div [className "checkbox"] [ div [className "checkbox"]
[ input [_id "terms-accept", _type "checkbox", value "", className "checkbox"] [ input [_id "terms-accept", _type "checkbox", value "", className "checkbox"]
, text "I accept the terms of uses ", , text "I accept the terms of uses ",
a [href "http://gitlab.iscpif.fr/humanities/tofu/tree/master"] [text "[Read the terms of use]"] a [href "http://gitlab.iscpif.fr/humanities/tofu/tree/master"] [text " [ Read the terms of use ] "]
] ]
, button [_id "login-button",className "btn btn-primary btn-rounded", _type "submit", onClick \_ -> dispatch $ PostAuth] [text "Login"] , button [_id "login-button",className "btn btn-primary btn-rounded", _type "submit", onClick \_ -> dispatch $ PostAuth] [text "Login"]
] ]
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment