Fix chapter titles for maps

bjornbm · Aug 5, 2011 · 31b81b7 · 31b81b7
1 parent e28882b
commit 31b81b7
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/Wiki.hs b/Wiki.hs
@@ -228,9 +228,10 @@ instance YesodBreadcrumbs Wiki where
     breadcrumb (BookChapterR mnslug mnslugs) = do
         (_, mn) <- runDB $ getMapNode mnslug mnslugs
         title <-
-            case tMapNodeCtopic mn of
-                Just tid -> runDB $ topicTitle <$> get404 tid
-                Nothing -> return "" -- FIXME
+            case (tMapNodeCtopic mn, tMapNodeCmap mn) of
+                (Just tid, _) -> runDB $ topicTitle <$> get404 tid
+                (Nothing, Just tmid) -> runDB $ tMapTitle <$> get404 tmid
+                (Nothing, Nothing) -> return "" -- FIXME
         return (MsgBookChapterTitle title, Just BookR)
     breadcrumb SearchR = return (MsgSearchTitle, Just RootR)
     breadcrumb (WikiR ps) = do