From 95d1b41c606a2abb4f09a9c7499119d9d108ba91 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Mon, 21 Jun 2021 14:06:34 +0000 Subject: [PATCH] Apply 1 suggestion(s) to 1 file(s) --- src/Handler/Material.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Handler/Material.hs b/src/Handler/Material.hs index ad378b383..55c9ced2c 100644 --- a/src/Handler/Material.hs +++ b/src/Handler/Material.hs @@ -90,7 +90,7 @@ getMaterialListR tid ssh csh = do E.where_ $ material E.^. MaterialCourse E.==. E.val cid E.&&. E.not_ (E.isNothing $ material E.^. MaterialType) return $ material E.^. MaterialType - return . mkOptionList $ map (\t -> Option t t t) (map CI.original (Set.toAscList (Set.fromList (mapMaybe E.unValue previouslyUsed)))) + return . mkOptionList . map (\(CI.original -> t) -> Option t t t) . Set.toAscList . Set.fromList $ mapMaybe E.unValue previouslyUsed let matLink :: MaterialName -> Route UniWorX matLink = CourseR tid ssh csh . flip MaterialR MShowR