[Fencommits] fenfire-hs: oops, fix date sorting

[Benja Fallenstein]

Fri Mar  2 15:28:16 EET 2007  Benja Fallenstein <benja.fallenstein at gmail.com>
  * oops, fix date sorting
diff -rN -u old-fenfire-hs/Fenfire.fhs new-fenfire-hs/Fenfire.fhs
--- old-fenfire-hs/Fenfire.fhs	2007-03-02 15:28:26.000000000 +0200
+++ new-fenfire-hs/Fenfire.fhs	2007-03-02 15:28:26.000000000 +0200
@@ -86,7 +86,7 @@
     sorted = List.sortBy cmp' list
     list = [(p,n) | (p,s) <- Map.toList $ getConns ?graph node dir,
                     not (p `elem` hiddenProps ?vs), n <- Set.toList s]
-    cmp n1 n2 | d1 <- f n1, d2 <- f n2 = compare d1 d2 where
+    cmp n1 n2 | Just d1 <- f n1, Just d2 <- f n2 = compare d1 d2 where
         f n = msum [g dc_date n, g dcterms_created n]
         g prop n = if hasConn ?graph n prop Pos 
                        then Just $ getOne ?graph n prop Pos else Nothing