@@ -13,9 +13,6 @@ type GitRepository = GitRepository of string
1313
1414type DockerImageVersion = DockerImageVersion of string
1515
16- type NomadJobName = NomadJobName of string
17- type NomadAllocationId = NomadAllocationId of string
18-
1916[<RequireQualifiedAccess>]
2017module GitBranch =
2118 let value ( GitBranch value ) = value
@@ -36,16 +33,6 @@ module DockerImageVersion =
3633 let value ( DockerImageVersion value ) = value
3734 let empty = DockerImageVersion " "
3835
39- [<RequireQualifiedAccess>]
40- module NomadJobName =
41- let value ( NomadJobName value ) = value
42- let empty = NomadJobName " "
43-
44- [<RequireQualifiedAccess>]
45- module NomadAllocationId =
46- let value ( NomadAllocationId value ) = value
47- let empty = NomadAllocationId " "
48-
4936//
5037// Application Status Interfaces
5138//
@@ -64,10 +51,6 @@ module ApplicationStatusFeature =
6451 type IDockerApplication =
6552 abstract member DockerImageVersion: DockerImageVersion
6653
67- type INomadApplication =
68- abstract member NomadJobName: NomadJobName
69- abstract member NomadAllocationId: NomadAllocationId
70-
7154 module internal Matching =
7255 let (| IsCurrentApplication | _ |): obj -> ICurrentApplication option = box >> function
7356 | :? ICurrentApplication as currentApplication -> Some currentApplication
@@ -81,10 +64,6 @@ module ApplicationStatusFeature =
8164 | :? IDockerApplication as dockerAppliation -> Some dockerAppliation
8265 | _ -> None
8366
84- let (| IsNomadApplication | _ |): obj -> INomadApplication option = box >> function
85- | :? INomadApplication as nomadApplication -> Some nomadApplication
86- | _ -> None
87-
8867//
8968// Application Status
9069//
@@ -102,8 +81,6 @@ type ApplicationStatus = {
10281 [<XmlElement( " sourceRevision" ) >] SourceRevision: string
10382 [<XmlElement( " repository" ) >] Repository: string
10483 [<XmlElement( " hostName" ) >] HostName: string
105- [<XmlElement( " nomadJobName" ) >] NomadJobName: string
106- [<XmlElement( " nomadAllocId" ) >] NomadAllocId: string
10784}
10885
10986[<RequireQualifiedAccess>]
@@ -148,13 +125,4 @@ module ApplicationStatus =
148125 | _ -> " "
149126
150127 HostName = try Dns.GetHostName() with _ -> " "
151-
152- NomadJobName =
153- match application with
154- | IsNomadApplication nomadApplication -> nomadApplication.NomadJobName |> NomadJobName.value
155- | _ -> " "
156- NomadAllocId =
157- match application with
158- | IsNomadApplication nomadApplication -> nomadApplication.NomadAllocationId |> NomadAllocationId.value
159- | _ -> " "
160128 }
0 commit comments