From b03efa8ad4474994b609325a8b94a83c7ee44417 Mon Sep 17 00:00:00 2001
From: Neil Mitchell <ndmitchell@gmail.com>
Date: Sun, 16 Apr 2023 11:34:42 +0100
Subject: [PATCH] HLint fixes

---
 src/Development/NSIS/Show.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Development/NSIS/Show.hs b/src/Development/NSIS/Show.hs
index 5124f92..d58978c 100644
--- a/src/Development/NSIS/Show.hs
+++ b/src/Development/NSIS/Show.hs
@@ -28,7 +28,7 @@ showNSIS xs =
         ["!insertmacro MUI_FUNCTION_DESCRIPTION_BEGIN"] ++
         [indent $ "!insertmacro MUI_DESCRIPTION_TEXT " ++ show i ++ " " ++ show d | (i,d) <- descs] ++
         ["!insertmacro MUI_FUNCTION_DESCRIPTION_END"])
-    where descs = filter (not . null . snd) $ concatMap secDescs $ universeBi xs
+    where descs = concatMap (filter (not . null . snd) . secDescs) $ universeBi xs
           inits = filter (\x -> not (isSection x) && not (isGlobal x)) xs
           fs = map fst funs
           funs = map (fst . head &&& concatMap snd) $ groupBy ((==) `on` fst) $ sortBy (compare `on` fst) $