导入具有限定名称的联合类型
Import Union type with a qualified name
所以我有两种联合类型:JobStatus
和 TaskStatus
。
module Data.Job exposing (..)
type JobStatus
= Submitted
| Started
| Finished
-
module Data.Task exposing (..)
type TaskStatus
= Created
| Running
| Finished
然后我将它们导入第三个模块
module Home exposing (..)
import Data.Job as Job exposing (JobStatus(..))
import Data.Task as Task exposing (TaskStatus(..))
type alias Model =
{ jobStatus : JobStatus
, taskStatus : TaskStatus
}
model : Model
model =
{ jobStatus = Finished
, taskStatus = Finished
}
但是Finished
太乱了,我想写成JobStatus.Finished
或者TaskStatus.Finished
怎么办?
如果您更改了导入内容
import Data.Job as Job exposing (JobStatus(..))
import Data.Task as Task exposing (TaskStatus(..))
至此
import Data.Job as Job
import Data.Task as Task
您可以使用 Job.Finished 和 Task.Finished。
所以我有两种联合类型:JobStatus
和 TaskStatus
。
module Data.Job exposing (..)
type JobStatus
= Submitted
| Started
| Finished
-
module Data.Task exposing (..)
type TaskStatus
= Created
| Running
| Finished
然后我将它们导入第三个模块
module Home exposing (..)
import Data.Job as Job exposing (JobStatus(..))
import Data.Task as Task exposing (TaskStatus(..))
type alias Model =
{ jobStatus : JobStatus
, taskStatus : TaskStatus
}
model : Model
model =
{ jobStatus = Finished
, taskStatus = Finished
}
但是Finished
太乱了,我想写成JobStatus.Finished
或者TaskStatus.Finished
怎么办?
如果您更改了导入内容
import Data.Job as Job exposing (JobStatus(..))
import Data.Task as Task exposing (TaskStatus(..))
至此
import Data.Job as Job
import Data.Task as Task
您可以使用 Job.Finished 和 Task.Finished。