getPasteViewR :: PasteId -> Handler Html
getPasteViewR pasteId = do
  paste <- runDB (get pasteId) >>=
           \case
              Just x -> return x
              Nothing -> notFound
  defaultLayout $
    $(widgetFile "paste-view")
getPasteViewR :: PasteId -> Handler Html
getPasteViewR pasteId = do
  paste <- runDB (get pasteId) >>=
           \case
              Just x -> return x
              Nothing -> notFound
  defaultLayout $
    $(widgetFile "paste-view")
getPasteViewR pasteId = do
  paste <- runDB (get pasteId) >>=
           \case
              Just x -> return x
              Nothing -> notFound
  defaultLayout $
    $(widgetFile "paste-view")