| By | Chris Done |
| At | 2011-11-29 |
| Title | Link up the pasteid. |
| Description |
Edit file src/Amelie/View/Paste.hs 33188 → 33188
148 148 showContextLink Paste{..} chans chid =149 149 case chid >>= \chid -> find ((==chid).channelId) chans of
150 150 Nothing -> return ()
151 151 Just Channel{..} -> do152 152 let uri = "/irc/" ++ T.unpack (T.dropWhile (=='#') channelName) ++
- 153 "/" ++ showIrcDateTime pasteDate
+ 153 "/" ++ showIrcDateTime pasteDate ++ "/" ++ show pasteId
154 154 href uri ("Context in IRC" :: String)155 155 156 156 -- | Individual paste navigation.
157 157 pasteNav :: [Language] -> [Paste] -> Paste -> Html
158 158 pasteNav langs pastes paste =
… … … …