Commit 3fcd3288 authored by Alexandre Delanoë's avatar Alexandre Delanoë

Merge branch 'dev' into dev-async-file-upload

parents 0f037ca3 402ad647
...@@ -204,7 +204,7 @@ termsLink _ = ...@@ -204,7 +204,7 @@ termsLink _ =
requestAccessLink :: {} -> R.Element requestAccessLink :: {} -> R.Element
requestAccessLink _ = requestAccessLink _ =
H.a { target: "_blank", href: applyUrl } [ H.text " request access" ] H.a { target: "_blank", href: applyUrl } [ H.text " request access" ]
where applyUrl = "https://iscpif.fr/services/applyforourservices/" where applyUrl = "https://iscpif.fr/apply-for-a-services-account/"
usernameInput :: R.State String -> R.Element usernameInput :: R.State String -> R.Element
usernameInput username = usernameInput username =
......
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