| By | Chris Done |
| At | 2013-03-01 |
| Title | update hints |
| Description |
Edit file src/Amelie/View/Paste.hs 33188 → 33188
43 43 -- | Render the page page.
44 44 page :: PastePage -> Html
45 45 page PastePage{ppPaste=p@Paste{..},..} =46 46 layoutPage $ Page {47 47 pageTitle = pasteTitle
- 48 , pageBody = do viewPaste (if ppRevision then [] else ppRevisions) [] ppChans ppLangs (p,ppHints)
+ 48 , pageBody = do viewPaste (if ppRevision then [] else ppRevisions)
+ 49 []
+ 50 ppChans
+ 51 ppLangs
+ 52 (p,case ppRevisionsHints of (hints:_) -> hints; _ -> ppHints)
49 53 viewAnnotations (p : ppAnnotations)
50 54 ppChans
51 55 ppLangs
52 56 (zip ppAnnotations ppAnnotationHints)
53 57 , pageName = "paste"
… … … …