fix bad commit from before

mzero · Nov 5, 2010 · dcc2173 · dcc2173
1 parent 67052c2
commit dcc2173
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 12 deletions.
diff --git a/seed/Template.hs b/seed/Template.hs
@@ -1,10 +1,11 @@
-module Template where
-
-import Text.Html
-
-nu = () -- DO NOT DELETE THIS
-
-page = thehtml << [
-    h1 << "Hi!",
-    paragraph << "testing"
-    ]
+module Template where
+
+import Text.Html
+
+nu = () -- DO NOT DELETE THIS
+
+page = thehtml << [
+    h1 << "Hi!",
+    paragraph << "testing",
+    ulist << map (li <<) [ bold << "one", italics << "two", tt << "three"]
+    ]
diff --git a/seed/lib/DevUtils.hs b/seed/lib/DevUtils.hs
@@ -63,28 +63,31 @@ topbar = thediv ! [identifier "topbar"] << [
     , ulist ! [theclass "right"] << map li siteLinks
     ]
   where
+    makelink (title, url) = anchor ! [href url] << title
     makeDocLink doc = anchor ! [href $ docUrl doc, target "_blank"]
         << docName doc
-    makelink (title, url) = anchor ! [href url] << title
     communityLinks =
         [ ("Platform", "http://hackage.haskell.org/platform/")
         , ("Hackage", "http://hackage.haskell.org/packages/hackage.html")
         , ("Reddit", "http://www.reddit.com/r/haskell/")
         , ("Stack Overflow",
             "http://stackoverflow.com/questions/tagged?tagnames=haskell")
         ]
+    siteLinks =
         [ makelink ("Home", "/")
         , makelink ("Project", "/project")
         , makelink ("Documentation", "/documentation")
           +++ unordList (map makeDocLink documents)
         , makelink ("Help", "/help")
-        , ("Help", "/help")
         ]
 
+
 scripts :: [String] -> Html
 scripts = toHtml . map script
   where
     script s = tag "script" ! [ thetype "text/javascript", src s ] << noHtml
+
+
 data Doc = Doc { docId :: String, docName :: String, docUrl :: String }
 
 documents :: [Doc]