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