stripLanguage (TranslationLanguage l) p =
  case withoutSuffix (('.' : l) ++ ".resx") p of
    Nothing -> p -- Technically shouldn't happen
    Just q -> q
stripLanguage (TranslationLanguage l) p =
  case withoutSuffix (('.' : l) ++ ".resx") p of
    Nothing -> p -- Technically shouldn't happen
    Just q -> q
stripLanguage (TranslationLanguage l) p =
  case withoutSuffix (('.' : l) ++ ".resx") p of
    Nothing -> p -- Technically shouldn't happen
    Just q -> q