Circular dependency troubles

Msg.elm

module Msg exposing (..)

import Types exposing (StoryNode, Transition)


type Msg
    = NoOp
    | Start
    | TestStory
    | NewStoryNode StoryNode
    | TransitionStoryNode Transition

Types.elm

module Types exposing (..)

import Html exposing (Html)
import Msg exposing (..)


type alias StoryNode =
    { id : Int
    , nodeType : NodeType
    , nodeContent : StoryNodeContent
    , state : Maybe String
    , transitions : List Transition
    }


type NodeType
    = NewsNode
    | ChatNode


type StoryNodeContent
    = NewsItemContent NewsItem
    | ChatMessageContent ChatMessage


type alias NewsItem =
    { id : Int
    , content : List (Html Msg)
    }


type alias ChatMessage =
    { id : Int
    , chatId : Int
    , userId : Int
    , content : List (Html Msg)
    }


type alias Player =
    { visitedStoryNodes : List StoryNode
    , currentStoryNode : Maybe StoryNode
    }


type alias Transition =
    { transitionType : String, toStoryNode : Int, text : Maybe String }


type alias Model =
    { player : Player
    , nodes : List StoryNode
    }