AP
type Msg
= PortMsg PortMsg
| OtherMsg
...
type PortMsg
= Foo
| Bar
Size: a a a
AP
type Msg
= PortMsg PortMsg
| OtherMsg
...
type PortMsg
= Foo
| Bar
AP
MP
MP
AP
import A
import B
type Msg = MsgA A.Msg | MsgB B.Msg
AP
AP
AP
type MsgA = PortA PortA | NonPortA NonPortAНа порт нужно будет мапнуть
type PortA = ...
type NonPortA = ...
type MsgB = PortB PortB | NonPortB NonPortB
type PortB = ...
type NonPortB = ...
type Msg
= MsgA MsgA
| MsgB MsgB
type PortMsg = PortA PortA | PortB PortB
PortMsg -> Msg
MP
type MsgA = PortA PortA | NonPortA NonPortAНа порт нужно будет мапнуть
type PortA = ...
type NonPortA = ...
type MsgB = PortB PortB | NonPortB NonPortB
type PortB = ...
type NonPortB = ...
type Msg
= MsgA MsgA
| MsgB MsgB
type PortMsg = PortA PortA | PortB PortB
PortMsg -> Msg
MP
MP
type RemoteData e a
= NotAsked
| Loading
| Failure e
| Success a
MP
AY
DK
type RemoteData e a
= NotAsked
| Loading
| Failure e
| Success a
DK
DK
DK
DK
DK
MP