From f7fdc5cf13bfd6d908f6de37e74f3a9b7828a124 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Wed, 2 Dec 2020 19:15:03 +0100
Subject: [PATCH] refactor: hlint

---
 src/Handler/Utils/Download.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Handler/Utils/Download.hs b/src/Handler/Utils/Download.hs
index 7683fe96d..f3b48a96c 100644
--- a/src/Handler/Utils/Download.hs
+++ b/src/Handler/Utils/Download.hs
@@ -57,7 +57,7 @@ withFileDownloadTokenMaybe' mSource route = maybeT (return $ SomeRoute route) $
     Just source -> do
       results <- lift . runConduit $ source .| C.take 2 .| C.foldMap (pure . either Just (const Nothing))
       return $ case results of
-        [Just (FileReference{ fileReferenceContent = Just ref })] -> DownloadRestrictSingle ref
+        [Just FileReference{ fileReferenceContent = Just ref }] -> DownloadRestrictSingle ref
         _other -> DownloadRestrictMultiple
     Nothing -> return DownloadRestrictMultiple
   bearer <- lift $ bearerRestrict (urlRoute route) restr <$> bearerToken