Add contribution note

2014-05-28 23:06:39 +02:00 · 2014-05-28 23:06:39 +02:00 · 5bb881cbf0
commit 5bb881cbf0
parent 2cb746af74
1 changed files with 7 additions and 1 deletions
--- a/src/HL/V/Template.hs
+++ b/src/HL/V/Template.hs
@ -190,9 +190,15 @@ footer r =
           (p [] (do case r of
                       Just (WikiR page) -> wikiLicense (Just page)
                       Just (WikiHomeR{}) -> wikiLicense (Nothing :: Maybe Text)
-                       _ -> "Copyright © 2014 haskell-lang.org"
+                       _ -> hlCopy
                     "")))
  where
+    hlCopy = do span [class_ "item"]
+                    "Copyright © 2014 haskell-lang.org"
+                span [class_ "item"]
+                     (do "Got changes to contribute? "
+                         a [href "https://github.com/chrisdone/hl"]
+                           "Fork on Github" )
    wikiLicense page =
      do span [class_ "item"]
              wikiLink