Skip to content
Permalink
Branch: master
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
62 lines (35 sloc) 712 Bytes
module Types exposing (..)
import I18Next
import Uuid
type Language
= English
type alias AllTranslations =
{ en : I18Next.Translations }
type alias TextNode =
{ content : String
, domId : String
}
type alias ImageNode =
{ url : String
}
type Extension
= Child Article
| End
type NodeType
= Text TextNode
| ImageWithText TextNode ImageNode
type alias Node =
{ value : NodeType
, controlsShown : Bool
}
type alias Article =
{ node : Node
, next : Extension
}
----------------ZIPPER----------------
type Crumb
= ChildCrumb Node
type alias BreadCrumbs =
List Crumb
type alias Zipper =
( Article, BreadCrumbs )
You can’t perform that action at this time.