Skip to content

Instantly share code, notes, and snippets.

@i-am-tom
Last active February 20, 2020 03:01
Show Gist options
  • Save i-am-tom/9651cd1e95443c4cbf3953429e988b07 to your computer and use it in GitHub Desktop.
Save i-am-tom/9651cd1e95443c4cbf3953429e988b07 to your computer and use it in GitHub Desktop.
Database failover modelled with the `alt` typeclass.
const Task = require('data.task')
Task.prototype.alt = function (that) {
return new Task((rej, res) =>
this.fork(_ => that.fork(rej, res), res))
}
const hosts = [
[ 'db1.mysite.com', 'user', 'password' ],
[ 'db2.mysite.com', 'user', 'password' ],
[ 'db3.mysite.com', 'user', 'password' ]
]
const connect = config => new Task((rej, res) =>
doSomeConnection(config).then(res).else(rej))
// The first available DB or an error!
// db :: Task String DB
const db = hosts.reduceRight(
(acc, host) => connect(host).alt(acc),
new Task((rej, res) => rej('No DBs available!')))
@DrBoolean
Copy link

DrBoolean commented Mar 31, 2017

Interestingly, you can wrap any Alternative in Alt to make it a monoid:

const Alt = x =>
({
  x,
  concat: o => Alt(x.alt(o.x))
})

Then you can foldMap instead of manually reducing

const I = require('immutable-ext')
I.List(hosts)
.foldMap(Alt, Alt(Task.rejected('No DBs available!')))
.x

@i-am-tom
Copy link
Author

i-am-tom commented Apr 4, 2017

Aha, a sneaky semigroup!

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment