From 230fb617aebfc516bcca992f02c8d7dac815971e Mon Sep 17 00:00:00 2001
From: Damian Reeves <957246+DamianReeves@users.noreply.github.com>
Date: Wed, 24 Jul 2024 13:40:10 -0500
Subject: [PATCH] Fix errors in Elm around Generator (#1170)

---
 src/Morphir/Generator/API.elm             | 2 +-
 src/Morphir/Generator/ValueGenerators.elm | 8 ++++----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/Morphir/Generator/API.elm b/src/Morphir/Generator/API.elm
index 3ceaa754b..060d58de9 100644
--- 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
index ef1e25d05..29be28530 100644
--- 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 ->