[Fencommits] fenserve: show the name Fenlight instead of Fendata

[Tuukka Hastrup]

Tue May 29 16:20:13 EEST 2007  Tuukka Hastrup <Tuukka.Hastrup at iki.fi>
  * show the name Fenlight instead of Fendata
diff -rN -u old-fenserve-1/fendata/UI.hs new-fenserve-1/fendata/UI.hs
--- old-fenserve-1/fendata/UI.hs	2007-05-29 16:35:52.000000000 +0300
+++ new-fenserve-1/fendata/UI.hs	2007-05-29 16:35:52.000000000 +0300
@@ -28,7 +28,7 @@
          \.content {float: right; width: 80% } \
          \.sidebar {float: left; width: 15%; font-size: small } \
          \h1, h2, h3, h4, h5, h6 { font-family: sans-serif } \
-         \</style><title>Fendata demo</title></head>"
+         \</style><title>Fenlight demo</title></head>"
 
 makePage state title sidebar body =
     --(tag "title" [] title +++) .
@@ -36,10 +36,10 @@
     tag "div" [("class", "header")]
       (etag "img" [("src", "http://iki.fi/tuukka/tmp/lantern-photo-75.jpeg"),
                    ("class", "logo")] +++
-       h1 ("Fendata | " +++ title)) +++
+       h1 ("Fenlight | " +++ title)) +++
     tag "div" [("class", "main")] (
         tag "div" [("class", "sidebar")] (
-            para "Welcome to Fendata!" +++ sidebar +++ hr +++
+            para "Welcome to Fenlight!" +++ sidebar +++ hr +++
             catFor (stateSidebarPages state) (\(fun, args) ->
                 let ?state=state; ?link=False; ?name=Nothing
                  in let exp = Call fun (map (Just . Str) args)
@@ -50,7 +50,7 @@
             para (link (?root++"table") "List of items in the database")) +++
         tag "div" [("class", "content")] body) +++
     tag "div" [("class", "footer")]
-        ("Fendata (c) 2007 by Benja Fallenstein and Tuukka Hastrup. " +++
+        ("Fenlight (c) 2007 by Benja Fallenstein and Tuukka Hastrup. " +++
          link "http://www.flickr.com/photo_zoom.gne?id=244815014&size=sq" "Logo" +++
          " (c) 2006 by " +++ link "http://www.flickr.com/photos/44458147@N00/"
          "The G-tastic 7" +++ ". All content is licensed under the " +++