Extract function

jfmengels · Sep 3, 2023 · 2ee409c · 2ee409c
1 parent f01508a
commit 2ee409c
Showing 1 changed file with 15 additions and 12 deletions.
diff --git a/src/Review/ModuleNameLookupTable/Compute.elm b/src/Review/ModuleNameLookupTable/Compute.elm
@@ -594,19 +594,22 @@ registerDeclaration declaration innerContext =
                 |> registerIfExposed (\name ctx -> registerExposedValue function name ctx) (Node.value nameNode)
 
         Declaration.AliasDeclaration alias ->
-            { innerContext | localTypes = Set.insert (Node.value alias.name) innerContext.localTypes }
-                |> (\ctx ->
-                        case Node.value alias.typeAnnotation of
-                            TypeAnnotation.Record _ ->
-                                addToScope
-                                    { variableType = TopLevelVariable
-                                    , node = alias.name
-                                    }
-                                    ctx
-
-                            _ ->
+            let
+                registerAlias : Context -> Context
+                registerAlias ctx =
+                    case Node.value alias.typeAnnotation of
+                        TypeAnnotation.Record _ ->
+                            addToScope
+                                { variableType = TopLevelVariable
+                                , node = alias.name
+                                }
                                 ctx
-                   )
+
+                        _ ->
+                            ctx
+            in
+            { innerContext | localTypes = Set.insert (Node.value alias.name) innerContext.localTypes }
+                |> registerAlias
                 |> registerIfExposed registerExposedTypeAlias (Node.value alias.name)
 
         Declaration.CustomTypeDeclaration { name, constructors } ->