diff --git a/src/Handler/Admin/StudyFeatures.hs b/src/Handler/Admin/StudyFeatures.hs
index 223a6f9d3..6fe21e14d 100644
--- a/src/Handler/Admin/StudyFeatures.hs
+++ b/src/Handler/Admin/StudyFeatures.hs
@@ -63,6 +63,7 @@ instance Button UniWorX ButtonAdminStudyTermsStandalone where
   btnClasses BtnStandaloneCandidatesDeleteAll       = [BCIsButton, BCDanger]
 
   
+{-# ANN postAdminFeaturesR ("HLint: ignore Redundant void" :: String) #-}
 getAdminFeaturesR, postAdminFeaturesR :: Handler Html
 getAdminFeaturesR = postAdminFeaturesR
 postAdminFeaturesR = do
@@ -231,7 +232,7 @@ postAdminFeaturesR = do
           forM_ schools $ \ssh -> void . insertUnique $ SchoolTerms ssh studyTermsKey
           deleteWhere [SchoolTermsTerms ==. studyTermsKey, SchoolTermsSchool /<-. Set.toList schools, SchoolTermsSchool <-. toListOf (folded . _entityKey) userSchools]
 
-          forM_ parents $ insertUnique . StudySubTerms studyTermsKey
+          forM_ parents $ void . insertUnique . StudySubTerms studyTermsKey
           deleteWhere [StudySubTermsChild ==. studyTermsKey, StudySubTermsParent /<-. Set.toList parents]
     formResult studyTermsResult' $ \res -> do
       void . runDB $ Map.traverseWithKey updateStudyTerms res