From b222ceb40e523a67d87dd793ac1aeff6c51d80d6 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 27 Nov 2019 17:02:07 +0100 Subject: [PATCH] refactor: hlint --- src/Handler/Admin/StudyFeatures.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Handler/Admin/StudyFeatures.hs b/src/Handler/Admin/StudyFeatures.hs index 02c45f97a..223a6f9d3 100644 --- a/src/Handler/Admin/StudyFeatures.hs +++ b/src/Handler/Admin/StudyFeatures.hs @@ -231,7 +231,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 $ void . insertUnique . StudySubTerms studyTermsKey + forM_ parents $ insertUnique . StudySubTerms studyTermsKey deleteWhere [StudySubTermsChild ==. studyTermsKey, StudySubTermsParent /<-. Set.toList parents] formResult studyTermsResult' $ \res -> do void . runDB $ Map.traverseWithKey updateStudyTerms res @@ -366,7 +366,7 @@ postAdminFeaturesR = do E.where_ $ subTerms E.^. StudySubTermsChild E.==. E.val fId E.&&. subTerms E.^. StudySubTermsParent E.==. terms E.^. StudyTermsId return terms - return $ field & _dbrOutput %~ (\field' -> (field', fieldParents, fieldSchools)) + return $ field & _dbrOutput %~ (, fieldParents, fieldSchools) dbtColonnade = formColonnade $ mconcat [ sortable (Just "key") (i18nCell MsgGenericKey) (maybe mempty numCell . preview (_dbrOutput . _1 . _entityVal . _studyTermsKey)) , sortable Nothing (i18nCell MsgStudySubTermsParentKey) (parentsCell _4 (_dbrOutput . _2 . to (Set.map entityKey)) _dbrKey')