AP
Size: a a a
AP
ZK
AP
AP
AP
module Temp exposing (ProgrammContent, getMedType)
type ProgrammContent = ProgrammContent
{ medType : MedType
, medInfo : Maybe Int
}
getMedType : ProgrammContent -> MedType
getMedType (ProgrammContent p) = .medType p
module Temp exposing (programmContent, getMedType)
type ProgrammContent = ProgrammContent
{ medType : MedType
, medInfo : Maybe Int
}
programmContent : MedType =
programmContent t =
ProgrammContent { medType = t, medInfo = Nothing }
getMedType : ProgrammContent -> MedType
getMedType (ProgrammContent p) = .medType p
ZK
ZK
module Temp exposing
( ProgrammContent
, MedType
, programmContent
, getMedType)
type ProgrammContent = ProgrammContent
{ medType : MedType
, medInfo : Maybe Int
}
programmContent : MedType =
programmContent t =
ProgrammContent { medType = t, medInfo = Nothing }
getMedType : ProgrammContent -> MedType
getMedType (ProgrammContent p) = .medType p
AP
(..)
AP
ZK
ZK
AP
AP
--- Types.elm
module Types exposing (c, g21)
type T
= C1 { g11 : Int, g12 : String }
| C2 { g21 : Bool }
c = C2 { g21 = False }
g21 x =
case x of
(C2 x) -> .g21 x
_ -> False
--- Main.elm
module Main exposing (main)
import Html
import Types exposing (..)
main = Html.text <| toString <| g21 <| c
`
AP
T
нигде не фигурирует в Main
в сигнатурах, но всё компилитсяZK
ZK
AP
AP
AP