vocabulinkHandler sendResponse (VError msg) =
  let (headers, body) = redirectWithMsg' referrerOrVocabulink [] MsgError msg
  in sendResponse (responseLBS status302 headers body)
vocabulinkHandler sendResponse (VError msg) =
  let (headers, body) = redirectWithMsg' referrerOrVocabulink [] MsgError msg
  in sendResponse (responseLBS status302 headers body)
vocabulinkHandler sendResponse (VError msg) =
  let (headers, body) = redirectWithMsg' referrerOrVocabulink [] MsgError msg
  in sendResponse (responseLBS status302 headers body)