diff --git a/src/Handler/Utils/I18n.hs b/src/Handler/Utils/I18n.hs
index 6c6ec72bf..8cb60c63a 100644
--- a/src/Handler/Utils/I18n.hs
+++ b/src/Handler/Utils/I18n.hs
@@ -59,9 +59,7 @@ i18nWidgetFilesAvailable' basename = do
       fileKinds = sortWith (NTop . flip List.elemIndex (NonEmpty.toList appLanguages)) . Set.toList <$> Map.fromListWith Set.union [ (kind, Set.singleton l) | (kind, Just l) <- fileKinds' ]
       toTranslation fName = listToMaybe . sortOn length . mapMaybe (flip Text.stripPrefix fName . (<>".")) $ map fst fileKinds'
 
-  availableTranslations' <- iforM fileKinds $ \kind -> maybe (fail $ "‘" <> i18nDirectory <> "’ has no translations for ‘" <> unpack kind <> "’") return . NonEmpty.nonEmpty
-
-  return availableTranslations'
+  iforM fileKinds $ \kind -> maybe (fail $ "‘" <> i18nDirectory <> "’ has no translations for ‘" <> unpack kind <> "’") return . NonEmpty.nonEmpty
 
 i18nWidgetFilesAvailable :: FilePath -> Q Exp
 i18nWidgetFilesAvailable = TH.lift <=< i18nWidgetFilesAvailable'