[Fencommits] fenserve: make board-demo work even when some literals are missing

[Benja Fallenstein]

Thu Mar 29 20:34:36 EEST 2007  Benja Fallenstein <benja.fallenstein at gmail.com>
  * make board-demo work even when some literals are missing
diff -rN -u old-fenserve/board-demo.page new-fenserve/board-demo.page
--- old-fenserve/board-demo.page	2007-03-29 20:35:15.000000000 +0300
+++ new-fenserve/board-demo.page	2007-03-29 20:35:15.000000000 +0300
@@ -12,12 +12,13 @@
 sioc_reply_of = IRI $ sioc ++ "reply_of"
 sioc_has_container = IRI $ sioc ++ "has_container"
 
-postTitle p   = literalStr $ query (p, dc_title, X) ?graph
-postAuthor p  = literalStr $ query (p, dc_creator, X) ?graph
-postDate p    = literalStr $ query (p, dcterms_modified, X) ?graph
-postContent p = literalStr $ query (p, content_encoded, X) ?graph
-boardTitle b  = literalStr $ query (b, dc_title, X) ?graph
-boardDesc b   = literalStr $ query (b, dc_description, X) ?graph
+mlit x = maybe x literalStr
+postTitle p   = mlit "(No title)"       $ query (p, dc_title, X) ?graph
+postAuthor p  = mlit "(unknown author)" $ query (p, dc_creator, X) ?graph
+postDate p    = mlit "(unknown date)"   $ query (p, dcterms_modified, X) ?graph
+postContent p = mlit ""                 $ query (p, content_encoded, X) ?graph
+boardTitle b  = mlit "(No title)"       $ query (b, dc_title, X) ?graph
+boardDesc b   = mlit ""                 $ query (b, dc_description, X) ?graph
 
 boardPosts :: (?graph :: Graph) => Node -> [Node]
 boardPosts board = [post | post <- query (X, sioc_has_container, board) ?graph,