From 6d745b139209e4d9599d26f78b10622d94810788 Mon Sep 17 00:00:00 2001
From: lue-bird <lue.the.bird@gmail.com>
Date: Tue, 3 Oct 2023 23:36:18 +0200
Subject: [PATCH] Extract randomGeneratorConstantConstruct

---
 src/Simplify.elm | 24 ++++++++++++++----------
 1 file changed, 14 insertions(+), 10 deletions(-)

diff --git a/src/Simplify.elm b/src/Simplify.elm
index 289271298..20a3aee3a 100644
--- a/src/Simplify.elm
+++ b/src/Simplify.elm
@@ -7738,21 +7738,25 @@ emptyAsString qualifyResources emptiable =
 randomGeneratorWrapper : TypeProperties (NonEmptiableProperties (WrapperProperties { mapFn : ( ModuleName, String ) }))
 randomGeneratorWrapper =
     { represents = "random generator"
-    , wrap =
-        { description = A "constant generator"
-        , fn = ( [ "Random" ], "constant" )
-        , getValue =
-            \lookupTable expr ->
-                Maybe.map .firstArg (AstHelpers.getSpecificFnCall ( [ "Random" ], "constant" ) lookupTable expr)
-        , is =
-            \lookupTable expr ->
-                isJust (AstHelpers.getSpecificFnCall ( [ "Random" ], "constant" ) lookupTable expr)
-        }
+    , wrap = randomGeneratorConstantConstruct
     , empty = { invalid = () }
     , mapFn = ( [ "Random" ], "map" )
     }
 
 
+randomGeneratorConstantConstruct : ConstructWithOneArgProperties
+randomGeneratorConstantConstruct =
+    { description = A "constant generator"
+    , fn = ( [ "Random" ], "constant" )
+    , getValue =
+        \lookupTable expr ->
+            Maybe.map .firstArg (AstHelpers.getSpecificFnCall ( [ "Random" ], "constant" ) lookupTable expr)
+    , is =
+        \lookupTable expr ->
+            isJust (AstHelpers.getSpecificFnCall ( [ "Random" ], "constant" ) lookupTable expr)
+    }
+
+
 maybeWithJustAsWrap :
     TypeProperties
         (EmptiableProperties