Extract randomGeneratorConstantConstruct

jfmengels · Oct 3, 2023 · 40ce5df · 40ce5df
1 parent abcdd68
commit 40ce5df
Showing 1 changed file with 14 additions and 10 deletions.
diff --git 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