From 442fe101d4031bf2abb4d26c8472076ef4fdf5a4 Mon Sep 17 00:00:00 2001
From: Jeroen Engels <jfm.engels@gmail.com>
Date: Sat, 24 Apr 2021 14:28:58 +0200
Subject: [PATCH] Simplify code

---
 src/NoUnused/CustomTypeConstructorArgs.elm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/NoUnused/CustomTypeConstructorArgs.elm b/src/NoUnused/CustomTypeConstructorArgs.elm
index 1438c68f..56ed27bc 100644
--- a/src/NoUnused/CustomTypeConstructorArgs.elm
+++ b/src/NoUnused/CustomTypeConstructorArgs.elm
@@ -531,8 +531,7 @@ collectUsedCustomTypeArgs lookupTable (Node range pattern) =
             in
             case ModuleNameLookupTable.moduleNameAt lookupTable range of
                 Just moduleName ->
-                    [ ( ( moduleName, name ), usedPositions ) ]
-                        ++ subList
+                    ( ( moduleName, name ), usedPositions ) :: subList
 
                 Nothing ->
                     subList