From ba2ed97731a5ca8d95a9118785c9cce163244267 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Wed, 27 Nov 2019 17:23:45 +0100
Subject: [PATCH] fix: revert wrong hlint suggestion

---
 src/Handler/Admin/StudyFeatures.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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