DarcsRev widget in default layout footer

This commit is contained in:
fr33domlover 2016-05-18 08:35:13 +00:00
parent e67f05c0ad
commit 2eb89cf460
4 changed files with 8 additions and 9 deletions

View file

@ -32,7 +32,7 @@ import Data.Text as T (pack, intercalate)
import Text.Jasmine.Local (discardm)
import Vervis.Import.NoFoundation hiding (last)
import Vervis.Widget (breadcrumbsW)
import Vervis.Widget (breadcrumbsW, revisionW)
-- | The foundation datatype for your application. This can be a good place to
-- keep settings and values requiring initialization before your application

View file

@ -36,9 +36,4 @@ $#
$# <script>
$# document.documentElement.className = document.documentElement.className.replace(/\bno-js\b/,'js');
<body>
<div class="container">
<header>
<div id="main" role="main">
^{pageBody pc}
$# <footer>
$# #{appCopyright $ appSettings master}
^{pageBody pc}

View file

@ -27,3 +27,6 @@ $maybe msg <- mmsg
<div #message>#{msg}
^{widget}
<footer>
^{revisionW}

View file

@ -12,7 +12,7 @@ $# You should have received a copy of the CC0 Public Domain Dedication along
$# with this software. If not, see
$# <http://creativecommons.org/publicdomain/zero/1.0/>.
#{sharer}/#{repo}
#{sharer}/#{repo} #
$maybe rev <- mrev
$case rev
@ -22,6 +22,7 @@ $maybe rev <- mrev
#{cgTitle t} + #{n} patches (#{T.take 10 $ cgHash p} #{cgTimeFmt p})
$of RevPatch p
#{T.take 10 $ cgHash p} #{cgTimeFmt p}
(total: #{changes} patches)
\ (total: #{changes} patches)
$nothing
(unknown revision)