mirror of
https://github.com/commercialhaskell/stackage-server.git
synced 2026-01-11 19:58:28 +01:00
45 lines
1.3 KiB
Plaintext
45 lines
1.3 KiB
Plaintext
<div class="navbar navbar-inverse navbar-static-top">
|
|
<div class="navbar-inner">
|
|
<div class="container">
|
|
<button type="button" class="btn btn-navbar" data-toggle="collapse" data-target=".nav-collapse">
|
|
<span class="icon-bar">
|
|
<span class="icon-bar">
|
|
<span class="icon-bar">
|
|
<a class="brand" href="/">
|
|
<img src="/static/img/stackage.png" title="FP Complete">
|
|
<div>
|
|
<ul class="nav">
|
|
$forall route <- [AllSnapshotsR,UploadStackageR,AuthR LoginR]
|
|
$maybe current <- cur
|
|
$if route == current
|
|
<li .active>
|
|
<a href=@{route}>#{route}
|
|
$else
|
|
<li>
|
|
<a href=@{route}>#{route}
|
|
$nothing
|
|
<li>
|
|
<a href=@{route}>#{route}
|
|
|
|
|
|
$maybe msg <- mmsg
|
|
<div .container>
|
|
<div .alert .alter-info>#{msg}
|
|
|
|
$case cur
|
|
$of Just (AuthR _)
|
|
<div .container>
|
|
<h1>Authorization
|
|
<p>Please login with an authorization method below:
|
|
^{widget}
|
|
$of _
|
|
^{widget}
|
|
|
|
<div .footer>
|
|
<div .container>
|
|
<div .row>
|
|
<div .span12>
|
|
A service provided by
|
|
<a href="http://www.fpcomplete.com/">
|
|
FP Complete
|