Build.elm

module Models.Build (
    Build(..)
    ) where


import Date exposing (Date(..))


import Models.Design exposing (Design(..))
import Models.User exposing (User(..))


type Build = Build
  ...

Design.elm

module Models.Design (
    Design(..)
    ) where


import Date exposing (Date(..))


import Models.User exposing (User(..))
import Models.Build exposing (Build(..))
import Models.Image exposing (Image(..))


type Design = Design
  ...
  

Image.elm

module Models.Image (
    Image(..)
    ) where


import Date exposing (Date(..))


import Models.Design exposing (Design(..))


type Image = Image
  ...
  

Model.elm

type alias Design =
    { ...
    , image: Maybe Image
    , ...
    }


type alias Image =
    { ...
    , design: Maybe Design
    , ...
    }
    

ModelElmEditor

This type alias is part of a mutually recursive set of type aliases.

 94|>type alias Design =
 95|>    { id: String
 96|>    , title: String
 97|>    , slug: String
 98|>    , vectorFileUrl: Maybe String
 99|>    , rasterFileUrl: Maybe String
100|>    , size: Int
101|>    , aspectRatio: AspectRatio
102|>    , counts: Count
103|>    , description: String
104|>    , tags: Maybe (List String)
105|>    , licenseType: Maybe String
106|>    , private: Bool
107|>    , nounProjectId: Maybe String
108|>    , userId: Maybe String
109|>    , user: Maybe User
110|>    , image: Maybe Image
111|>    --, builds: Maybe (List Build)
112|>    --, favorites: Maybe (List Favorite)
113|>    --, comments: Maybe (List Comment)
114|>    --, orderItems: Maybe (List OrderItem)
115|>    , createdAt: String
116|>    , updatedAt: String
117|>    , deletedAt: Maybe String
118|>    }

The following type aliases all depend on each other in some way:

    Design                                                           line 94
    Image                                                            line 130

The problem is that when you try to expand any of these type aliases, they
expand infinitely! To fix, first try to centralize them into one alias.

User.elm

module Models.User (
    User(..)
    ) where


import Date exposing (Date(..))


type User = User
  ...