diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-04-27 15:40:28 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-04-27 15:40:28 -0400 |
| commit | a31c8e3d5f7bb01db2364a36b64c322223f20ec6 (patch) | |
| tree | c4f44efc99e62105a6f2e861f210c52a000b309f /doc/todo | |
| parent | de99e4b6b45201d6af92eb0571ceaba678830989 (diff) | |
layout
Diffstat (limited to 'doc/todo')
| -rw-r--r-- | doc/todo/type_level_port_conflict_detection.mdwn | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/doc/todo/type_level_port_conflict_detection.mdwn b/doc/todo/type_level_port_conflict_detection.mdwn index 67f63e03..733e6e04 100644 --- a/doc/todo/type_level_port_conflict_detection.mdwn +++ b/doc/todo/type_level_port_conflict_detection.mdwn @@ -9,7 +9,7 @@ but it is not yet integrated into the Property types. --[[Joey]] [[!tag user/joey]] -> On `typed-os-requirements` branch, I have the UsingPort 80 singleton +> On the `typed-os-requirements` branch, I have the UsingPort 80 singleton > implemented. As soon as I tried to apply it to some apache properties > though, I realized a problem -- If multiple apache vhosts are defined > each as its own property, then each of those properties can't have @@ -42,10 +42,10 @@ but it is not yet integrated into the Property types. --[[Joey]] > > So, we'd start with a property definition that does not use any ports: > > > > virtualHost :: Domain -> WebRoot -> RevertableProperty DebianLike DebianLike -> > virtualHost domain docroot = -> > let self = property "vhost" (go (usedPorts (getMetaTypes self))) -> > in self -> > where +> > virtualHost domain docroot = +> > let self = property "vhost" (go (usedPorts (getMetaTypes self))) +> > in self +> > where > > go [] = error "No ports specified" > > go ports = ... > > |