Fix errors in Elm around Generator (#1170)

finos · Jul 24, 2024 · 230fb61 · 230fb61
1 parent aac22df
commit 230fb61
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/src/Morphir/Generator/API.elm b/src/Morphir/Generator/API.elm
@@ -1,4 +1,4 @@
-module Morphir.Elm.Generator.API exposing
+module Morphir.Generator.API exposing
     ( Generator
     , Seed
     , alphaChar

diff --git a/src/Morphir/Generator/ValueGenerators.elm b/src/Morphir/Generator/ValueGenerators.elm
@@ -1,9 +1,9 @@
-module Morphir.Elm.Generator.ValueGenerators exposing (boolValueGenerator, charValueGenerator, floatValueGenerator, fromType, intValueGenerator, listValueGenerator, maybeValueGenerator, recordValueGenerator, stringValueGenerator, tupleValueGenerator)
+module Morphir.Generator.ValueGenerators exposing (boolValueGenerator, charValueGenerator, floatValueGenerator, fromType, intValueGenerator, listValueGenerator, maybeValueGenerator, recordValueGenerator, stringValueGenerator, tupleValueGenerator)
 
 import Date
 import Dict exposing (Dict)
-import Morphir.Elm.Generator.API as Generator exposing (Generator)
-import Morphir.IR as IR exposing (IR)
+import Morphir.Generator.API as Generator exposing (Generator)
+import Morphir.IR.Distribution exposing (Distribution, lookupTypeSpecification)
 import Morphir.IR.FQName as FQName
 import Morphir.IR.Literal as Literal
 import Morphir.IR.Name exposing (Name)
@@ -55,7 +55,7 @@ fromType ir tpe =
         Type.Reference _ (( typePackageName, typeModuleName, _ ) as fQName) typeArgs ->
             -- Handle references that are not part of the SDK
             ir
-                |> IR.lookupTypeSpecification fQName
+                |> lookupTypeSpecification fQName
                 |> Result.fromMaybe (String.concat [ "Cannot find reference: ", FQName.toString fQName ])
                 |> Result.andThen
                     (\typeSpec ->