Nelson: Functional programming in system design - Speaker Deck

Tweet

Tweet

Slide 1

Slide 1 text

Nelson Functional programming in system design Adelbert Chang @adelbertchang Target

Slide 2

Slide 2 text

No content

Slide 3

Slide 3 text

No content

Slide 4

Slide 4 text

No content

Slide 5

Slide 5 text

No content

Slide 6

Slide 6 text

No content

Slide 7

Slide 7 text

B 5.4.5 D 2.1.8 F 1.2.3 G 1.0.9 C 2.3.6 A 1.1.5 Mutable deployments E 4.12.7

Slide 8

Slide 8 text

B 5.4.5 D 2.1.8 F 1.2.3 G 1.0.9 C 2.3.6 A 1.1.5 Mutable deployments E 4.12.7 D 2.2.0

Slide 9

Slide 9 text

B 5.4.5 D 2.2.0 F 1.2.3 G 1.0.9 C 2.3.6 A 1.1.5 Mutable deployments E 4.12.7

Slide 10

Slide 10 text

B 5.4.5 D 2.2.0 F 1.2.3 G 1.0.9 C 2.3.6 A 1.1.5 Mutable deployments E 4.12.7

Slide 11

Slide 11 text

F 1.2.3 G 1.0.9 C 2.3.6 Immutable deployments A 1.1.5 E 4.12.7 D 2.1.8 B 5.4.5

Slide 12

Slide 12 text

F 1.2.3 G 1.0.9 C 2.3.6 Immutable deployments A 1.1.5 E 4.12.7 D 2.1.8 B 5.4.5 D 2.2.0

Slide 13

Slide 13 text

F 1.2.3 G 1.0.9 C 2.3.6 Immutable deployments A 1.1.5 E 4.12.7 B 5.4.5 D 2.1.8 D 2.2.0

Slide 14

Slide 14 text

F 1.2.3 G 1.0.9 C 2.3.6 Immutable deployments A 1.1.5 E 4.12.7 B 5.4.5 D 2.1.8 D 2.2.0 E 4.12.8

Slide 15

Slide 15 text

F 1.2.3 G 1.0.9 C 2.3.6 Immutable deployments A 1.1.5 B 5.4.5 D 2.1.8 D 2.2.0 E 4.12.8

Slide 16

Slide 16 text

F 1.2.3 G 1.0.9 C 2.3.6 Immutable deployments A 1.1.5 B 5.4.5 D 2.1.8 D 2.2.0 E 4.12.8 B 5.4.6

Slide 17

Slide 17 text

F 1.2.3 G 1.0.9 C 2.3.6 Immutable deployments A 1.1.5 B 5.4.5 D 2.1.8 D 2.2.0 E 4.12.8 B 5.4.6 A 1.1.6

Slide 18

Slide 18 text

F 1.2.3 G 1.0.9 C 2.3.6 Immutable deployments B 5.4.5 D 2.1.8 D 2.2.0 E 4.12.8 B 5.4.6 A 1.1.6

Slide 19

Slide 19 text

F 1.2.3 G 1.0.9 C 2.3.6 Immutable deployments D 2.2.0 E 4.12.8 B 5.4.6 A 1.1.6

Slide 20

Slide 20 text

Reify the call graph B 5.4.5 D 2.1.8 F 1.2.3 G 1.0.9 C 2.3.6 A 1.1.5 E 4.12.7

Slide 21

Slide 21 text

Reify the call graph B 5.4.5 D 2.1.8 F 1.2.3 G 1.0.9 C 2.3.6 A 1.1.5 E 4.12.7

Slide 22

Slide 22 text

Reify the call graph B 5.4.5 D 2.1.8 F 1.2.3 G 1.0.9 C 2.3.6 A 1.1.5 E 4.12.7

Slide 23

Slide 23 text

Reify the call graph B 5.4.5 D 2.1.8 F 1.2.3 G 1.0.9 C 2.3.6 A 1.1.5 E 4.12.7

Slide 24

Slide 24 text

Reify the call graph B 5.4.5 D 2.1.8 F 1.2.3 G 1.0.9 C 2.3.6 A 1.1.5 E 4.12.7

Slide 25

Slide 25 text

Reify the call graph B 5.4.5 D 2.1.8 F 1.2.3 G 1.0.9 C 2.3.6 A 1.1.5 E 4.12.7

Slide 26

Slide 26 text

No content

Slide 27

Slide 27 text

No content

Slide 28

Slide 28 text

Name and version

Slide 29

Slide 29 text

Name and version Dependencies

Slide 30

Slide 30 text

Nelson workﬂow

Slide 31

Slide 31 text

Nelson workﬂow

Slide 32

Slide 32 text

Nelson workﬂow

Slide 33

Slide 33 text

Nelson workﬂow

Slide 34

Slide 34 text

Nelson workﬂow

Slide 35

Slide 35 text

Graph management: trafﬁc shifting C 2.3.6 A 1.1.5 E 4.12.7 F 1.2.3 G 1.0.9 D 2.1.8 B 5.4.5

Slide 36

Slide 36 text

Graph management: trafﬁc shifting C 2.3.6 A 1.1.5 E 4.12.7 F 1.2.3 G 1.0.9 D 2.1.8 B 5.4.5 C 2.3.7

Slide 37

Slide 37 text

Graph management: trafﬁc shifting C 2.3.6 A 1.1.5 E 4.12.7 F 1.2.3 G 1.0.9 D 2.1.8 B 5.4.5 C 2.3.7 B 5.4.6

Slide 38

Slide 38 text

Graph management: trafﬁc shifting C 2.3.6 A 1.1.5 E 4.12.7 F 1.2.3 G 1.0.9 D 2.1.8 B 5.4.5 C 2.3.7 B 5.4.6 A 1.1.6

Slide 39

Slide 39 text

Graph management: trafﬁc shifting C 2.3.6 A 1.1.5 E 4.12.7 F 1.2.3 G 1.0.9 D 2.1.8 B 5.4.5 C 2.3.7

Slide 40

Slide 40 text

Graph management: trafﬁc shifting C 2.3.6 A 1.1.5 E 4.12.7 F 1.2.3 G 1.0.9 D 2.1.8 B 5.4.5 C 2.3.7

Slide 41

Slide 41 text

Graph management: trafﬁc shifting D 2.1.8 C 2.3.6 A 1.1.5 B 5.4.5 C 2.3.7 E 4.12.7 F 1.2.3 G 1.0.9

Slide 42

Slide 42 text

Graph management: trafﬁc shifting D 2.1.8 A 1.1.5 B 5.4.5 C 2.3.7 E 4.12.7 F 1.2.3 G 1.0.9

Slide 43

Slide 43 text

Graph management: pruning A 1.1.5 E 4.12.7 F 1.2.3 G 1.0.9 D 2.1.8 B 5.4.5 C 2.3.7

Slide 44

Slide 44 text

Graph management: pruning A 1.1.5 E 4.12.7 F 1.2.3 G 1.0.9 D 2.1.8 B 5.4.5 C 2.3.7

Slide 45

Slide 45 text

Graph management: pruning A 1.1.5 E 4.12.7 F 1.2.3 G 1.0.9 D 2.1.8 B 5.4.5 F 1.3.0 C 2.3.7

Slide 46

Slide 46 text

Graph management: pruning A 1.1.5 E 4.12.7 F 1.2.3 G 1.0.9 D 2.1.8 B 5.4.5 F 1.3.0 E 4.12.8 C 2.3.7

Slide 47

Slide 47 text

Graph management: pruning A 1.1.5 F 1.2.3 G 1.0.9 D 2.1.8 B 5.4.5 F 1.3.0 E 4.12.8 C 2.3.7

Slide 48

Slide 48 text

Graph management: pruning A 1.1.5 D 2.1.8 B 5.4.5 F 1.3.0 E 4.12.8 C 2.3.7

Slide 49

Slide 49 text

D 2.1.8 A 1.1.5 F 1.3.0 E 4.12.8 C 2.3.7 B 5.4.5 Graph management: pruning

Slide 50

Slide 50 text

D 2.1.8 A 1.1.5 F 1.3.0 E 4.12.8 C 2.3.7 B 5.4.5 Graph management: pruning B 5.4.6

Slide 51

Slide 51 text

D 2.1.8 A 1.1.5 F 1.3.0 E 4.12.8 C 2.3.7 B 5.4.5 Graph management: pruning B 5.4.6

Slide 52

Slide 52 text

D 2.1.8 A 1.1.5 F 1.3.0 E 4.12.8 C 2.3.7 B 5.4.5 Graph management: pruning B 5.4.6

Slide 53

Slide 53 text

D 2.1.8 A 1.1.5 F 1.3.0 E 4.12.8 C 2.3.7 Graph management: pruning B 5.4.6

Slide 54

Slide 54 text

D 2.1.8 A 1.1.5 F 1.3.0 E 4.12.8 C 2.3.7 Graph management: pruning B 5.4.6

Slide 55

Slide 55 text

D 2.1.8 A 1.1.5 F 1.3.0 E 4.12.8 C 2.3.7 Job X 1.8.5 Graph management: pruning B 5.4.6

Slide 56

Slide 56 text

Time

Slide 57

Slide 57 text

Time retain-latest

Slide 58

Slide 58 text

X 3.2.0 Time retain-latest

Slide 59

Slide 59 text

X 3.2.0 X 3.2.1 Time retain-latest

Slide 60

Slide 60 text

X 3.2.0 X 3.2.1 Time retain-latest

Slide 61

Slide 61 text

X 3.2.0 X 3.2.1 X 3.3.0 Time retain-latest

Slide 62

Slide 62 text

X 3.2.0 X 3.2.1 X 3.3.0 Time retain-latest

Slide 63

Slide 63 text

X 3.2.0 X 3.2.1 X 3.3.0 X 4.0.0 Time retain-latest

Slide 64

Slide 64 text

X 3.2.0 X 3.2.1 X 3.3.0 X 4.0.0 Time retain-latest

Slide 65

Slide 65 text

X 3.2.0 X 3.2.1 X 3.3.0 X 4.0.0 X 4.1.0 Time retain-latest

Slide 66

Slide 66 text

X 3.2.0 X 3.2.1 X 3.3.0 X 4.0.0 X 4.1.0 Time retain-latest

Slide 67

Slide 67 text

X 3.2.0 X 3.2.1 X 3.3.0 X 4.0.0 X 4.1.0 Time retain-latest X 3.2.0 X 3.2.1 X 3.3.0 X 4.0.0 X 4.1.0 retain-latest-two-major

Slide 68

Slide 68 text

X 3.2.0 X 3.2.1 X 3.3.0 X 4.0.0 X 4.1.0 Time retain-latest X 3.2.0 X 3.2.1 X 3.3.0 X 4.0.0 X 4.1.0 retain-latest-two-major X 3.2.0 X 3.2.1 X 3.3.0 X 4.0.0 X 4.1.0 retain-latest-two-feature

Slide 69

Slide 69 text

D 2.1.8 A 1.1.5 F 1.2.4 E 4.12.8 C 2.3.7 Job X 1.8.5 Graph management: pruning B 5.4.6

Slide 70

Slide 70 text

D 2.1.8 A 1.1.5 F 1.2.4 E 4.12.8 C 2.3.7 Job X 1.8.5 Job X 1.9.0 Graph management: pruning B 5.4.6

Slide 71

Slide 71 text

D 2.1.8 A 1.1.5 F 1.2.4 E 4.12.8 C 2.3.7 Job X 1.8.5 Job X 1.9.0 Job X 1.8.6 Graph management: pruning B 5.4.6

Slide 72

Slide 72 text

D 2.1.8 A 1.1.5 F 1.2.4 E 4.12.8 C 2.3.7 Job X 1.9.0 Job X 1.8.6 Graph management: pruning B 5.4.6

Slide 73

Slide 73 text

D 2.1.8 A 1.1.5 F 1.2.4 E 4.12.8 C 2.3.7 Job X 1.9.0 Job X 1.8.6 Graph management: pruning B 5.4.6

Slide 74

Slide 74 text

D 2.1.8 A 1.1.5 F 1.2.4 E 4.12.8 C 2.3.7 Job X 1.9.0 Job X 1.8.6 Job X 1.9.1 Graph management: pruning B 5.4.6

Slide 75

Slide 75 text

D 2.1.8 A 1.1.5 F 1.2.4 E 4.12.8 C 2.3.7 Job X 1.8.6 Job X 1.9.1 Graph management: pruning B 5.4.6

Slide 76

Slide 76 text

No content

Slide 77

Slide 77 text

for { _ <- status(id, Pending, "workflow about to start") i <- dockerOps(id, unit, dc.docker.registry) Launch workﬂow

Slide 78

Slide 78 text

for { _ <- status(id, Pending, "workflow about to start") i <- dockerOps(id, unit, dc.docker.registry) _ <- status(id, Deploying, s"writing alert definitions to ${dc.name}'s consul") _ <- writeAlertsToConsul(sn, ns.name, p.name, unit, p.environment.alertOptOuts) Launch workﬂow

Slide 79

Slide 79 text

for { _ <- status(id, Pending, "workflow about to start") i <- dockerOps(id, unit, dc.docker.registry) _ <- status(id, Deploying, s"writing alert definitions to ${dc.name}'s consul") _ <- writeAlertsToConsul(sn, ns.name, p.name, unit, p.environment.alertOptOuts) Launch workﬂow _ <- logToFile(...) _ <- writePolicyToVault(cfg = dc.policy, sn = sn, ns = ns.name, rs = rs)

Slide 80

Slide 80 text

for { _ <- status(id, Pending, "workflow about to start") i <- dockerOps(id, unit, dc.docker.registry) _ <- status(id, Deploying, s"writing alert definitions to ${dc.name}'s consul") _ <- writeAlertsToConsul(sn, ns.name, p.name, unit, p.environment.alertOptOuts) _ <- logToFile(...) _ <- writeDiscoveryToConsul(id, sn, ns.name, dc) Launch workﬂow _ <- logToFile(...) _ <- writePolicyToVault(cfg = dc.policy, sn = sn, ns = ns.name, rs = rs)

Slide 81

Slide 81 text

for { _ <- status(id, Pending, "workflow about to start") i <- dockerOps(id, unit, dc.docker.registry) _ <- status(id, Deploying, s"writing alert definitions to ${dc.name}'s consul") _ <- writeAlertsToConsul(sn, ns.name, p.name, unit, p.environment.alertOptOuts) _ <- logToFile(...) _ <- writeDiscoveryToConsul(id, sn, ns.name, dc) _ <- getTrafficShift.cata(...) _ <- logToFile(...) Launch workﬂow _ <- logToFile(...) _ <- writePolicyToVault(cfg = dc.policy, sn = sn, ns = ns.name, rs = rs)

Slide 82

Slide 82 text

for { _ <- status(id, Pending, "workflow about to start") i <- dockerOps(id, unit, dc.docker.registry) _ <- status(id, Deploying, s"writing alert definitions to ${dc.name}'s consul") _ <- writeAlertsToConsul(sn, ns.name, p.name, unit, p.environment.alertOptOuts) _ <- logToFile(...) _ <- writeDiscoveryToConsul(id, sn, ns.name, dc) _ <- getTrafficShift.cata(...) _ <- logToFile(...) Launch workﬂow _ <- logToFile(...) _ <- writePolicyToVault(cfg = dc.policy, sn = sn, ns = ns.name, rs = rs) l <- launch(i, dc, ns.name, vunit, p, hash) _ <- debug(s"response from scheduler $l")

Slide 83

Slide 83 text

for { _ <- status(id, Pending, "workflow about to start") i <- dockerOps(id, unit, dc.docker.registry) _ <- status(id, Deploying, s"writing alert definitions to ${dc.name}'s consul") _ <- writeAlertsToConsul(sn, ns.name, p.name, unit, p.environment.alertOptOuts) _ <- logToFile(...) _ <- writeDiscoveryToConsul(id, sn, ns.name, dc) _ <- getTrafficShift.cata(...) _ <- logToFile(...) _ <- status(id, getStatus(unit, p), "======> workflow completed <======") } yield () Launch workﬂow _ <- logToFile(...) _ <- writePolicyToVault(cfg = dc.policy, sn = sn, ns = ns.name, rs = rs) l <- launch(i, dc, ns.name, vunit, p, hash) _ <- debug(s"response from scheduler $l")

Slide 84

Slide 84 text

logToFile(d.id, s"removing policy from vault: ${vaultLoggingFields(...)}") >> deletePolicyFromVault(d.stackName, ns.name) >> Delete workﬂow

Slide 85

Slide 85 text

logToFile(d.id, s"removing policy from vault: ${vaultLoggingFields(...)}") >> deletePolicyFromVault(d.stackName, ns.name) >> Delete workﬂow logToFile(d.id, s"removing alerts from consul ${alerts.alertingKey(sn)}") >> deleteAlertsFromConsul(d.stackName) >>

Slide 86

Slide 86 text

logToFile(d.id, s"removing policy from vault: ${vaultLoggingFields(...)}") >> deletePolicyFromVault(d.stackName, ns.name) >> Delete workﬂow logToFile(d.id, ...) >> deleteDiscoveryInfoFromConsul(sn) >> logToFile(d.id, s"removing alerts from consul ${alerts.alertingKey(sn)}") >> deleteAlertsFromConsul(d.stackName) >>

Slide 87

Slide 87 text

logToFile(d.id, s"removing policy from vault: ${vaultLoggingFields(...)}") >> deletePolicyFromVault(d.stackName, ns.name) >> Delete workﬂow logToFile(d.id, ...) >> deleteDiscoveryInfoFromConsul(sn) >> logToFile(d.id, s"removing alerts from consul ${alerts.alertingKey(sn)}") >> deleteAlertsFromConsul(d.stackName) >> logToFile(d.id, s"instructing ${dc.name}'s scheduler to decommission ${sn}") >> delete(dc,d) >>

Slide 88

Slide 88 text

logToFile(d.id, s"removing policy from vault: ${vaultLoggingFields(...)}") >> deletePolicyFromVault(d.stackName, ns.name) >> Delete workﬂow logToFile(d.id, ...) >> deleteDiscoveryInfoFromConsul(sn) >> logToFile(d.id, s"removing alerts from consul ${alerts.alertingKey(sn)}") >> deleteAlertsFromConsul(d.stackName) >> logToFile(d.id, s"instructing ${dc.name}'s scheduler to decommission ${sn}") >> delete(dc,d) >> status(d.id, Terminated, s"Decommissioning deployment ${sn} in ${dc.name}")

Slide 89

Slide 89 text

runBackgroundJob("auditor", cfg.auditor.process(cfg.storage)) Background processes

Slide 90

Slide 90 text

runBackgroundJob("auditor", cfg.auditor.process(cfg.storage)) runBackgroundJob("pipeline_processor", Process.eval(Pipeline.task(cfg)(Pipeline.sinks.runAction(cfg)))) Background processes

Slide 91

Slide 91 text

runBackgroundJob("auditor", cfg.auditor.process(cfg.storage)) runBackgroundJob("pipeline_processor", Process.eval(Pipeline.task(cfg)(Pipeline.sinks.runAction(cfg)))) runBackgroundJob("workflow_logger", cfg.workflowLogger.process) Background processes

Slide 92

Slide 92 text

runBackgroundJob("auditor", cfg.auditor.process(cfg.storage)) runBackgroundJob("pipeline_processor", Process.eval(Pipeline.task(cfg)(Pipeline.sinks.runAction(cfg)))) runBackgroundJob("workflow_logger", cfg.workflowLogger.process) runBackgroundJob("routing_cron", routing.cron.consulRefresh(cfg) to Http4sConsul.consulSink) Background processes

Slide 93

Slide 93 text

runBackgroundJob("auditor", cfg.auditor.process(cfg.storage)) runBackgroundJob("pipeline_processor", Process.eval(Pipeline.task(cfg)(Pipeline.sinks.runAction(cfg)))) runBackgroundJob("workflow_logger", cfg.workflowLogger.process) runBackgroundJob("routing_cron", routing.cron.consulRefresh(cfg) to Http4sConsul.consulSink) runBackgroundJob("cleanup_pipeline", cleanup.CleanupCron.pipeline(cfg)) Background processes

Slide 94

Slide 94 text

runBackgroundJob("auditor", cfg.auditor.process(cfg.storage)) runBackgroundJob("pipeline_processor", Process.eval(Pipeline.task(cfg)(Pipeline.sinks.runAction(cfg)))) runBackgroundJob("workflow_logger", cfg.workflowLogger.process) runBackgroundJob("routing_cron", routing.cron.consulRefresh(cfg) to Http4sConsul.consulSink) runBackgroundJob("cleanup_pipeline", cleanup.CleanupCron.pipeline(cfg)) runBackgroundJob("sweeper", cleanup.Sweeper.process(cfg)) Background processes

Slide 95

Slide 95 text

runBackgroundJob("auditor", cfg.auditor.process(cfg.storage)) runBackgroundJob("pipeline_processor", Process.eval(Pipeline.task(cfg)(Pipeline.sinks.runAction(cfg)))) runBackgroundJob("workflow_logger", cfg.workflowLogger.process) runBackgroundJob("routing_cron", routing.cron.consulRefresh(cfg) to Http4sConsul.consulSink) runBackgroundJob("cleanup_pipeline", cleanup.CleanupCron.pipeline(cfg)) runBackgroundJob("sweeper", cleanup.Sweeper.process(cfg)) runBackgroundJob("deployment_monitor", DeploymentMonitor.loop(cfg)) Background processes

Slide 96

Slide 96 text

type Op0[A] = Coproduct[DockerOp, ConsulOp, A] type Op1[A] = Coproduct[LoggingOp, Op0,A] type Op2[A] = Coproduct[StoreOp, Op1, A] type Op3[A] = Coproduct[WorkflowControlOp, Op2,A] type Op4[A] = Coproduct[Vault, Op3, A] type WorkflowOp[A] = Coproduct[SchedulerOp, Op4, A] type WorkflowF[A] = Free.FreeC[WorkflowOp, A] Workﬂow algebra

Slide 97

Slide 97 text

final case class Interpreters( scheduler: SchedulerOp ~> Task, consul: ConsulOp ~> Task, vault: Vault ~> Task, storage: StoreOp ~> Task, logger: LoggingOp ~> Task, docker: DockerOp ~> Task, control: WorkflowControlOp ~> Task, health: HealthCheckOp ~> Task ) Workﬂow interpreter(s)

Slide 98

Slide 98 text

No content

Slide 99

Slide 99 text

No content

Slide 100

Slide 100 text

No content

Slide 101

Slide 101 text

No content

Slide 102

Slide 102 text

No content

Slide 103

Slide 103 text

No content

Slide 104

Slide 104 text

No content

Slide 105

Slide 105 text

No content

Slide 106

Slide 106 text

No content

Slide 107

Slide 107 text

No content

Slide 108

Slide 108 text

https://getnelson.github.io/ https://github.com/getnelson/ https://gitter.im/getnelson/nelson