From 36358af8be6f0aa8a0c811c9e62d5f388eba2673 Mon Sep 17 00:00:00 2001
From: Steffen Jost <jost@tcs.ifi.lmu.de>
Date: Thu, 9 May 2019 19:24:17 +0200
Subject: [PATCH] quiet hlint

---
 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 c9199136f..2c6c98c65 100644
--- a/src/Handler/Material.hs
+++ b/src/Handler/Material.hs
@@ -360,5 +360,5 @@ getMArchiveR tid ssh csh mnm = do
         E.where_ $  materialFile E.^. MaterialFileMaterial E.==. E.val mid
         return file
       fileSource' = fileSelect .| C.map entityVal
-      zipComment = Text.encodeUtf8 $ (termToText $ unTermKey tid) <> "-" <> toPathPiece (unSchoolKey ssh <> "-" <> csh <> ":" <> mnm)
+      zipComment = Text.encodeUtf8 $ termToText (unTermKey tid) <> "-" <> toPathPiece (unSchoolKey ssh <> "-" <> csh <> ":" <> mnm)
     fileSource' .| produceZip ZipInfo{..} .| C.map toFlushBuilder