summaryrefslogtreecommitdiff
path: root/doc/todo/type_level_port_conflict_detection.mdwn
diff options
context:
space:
mode:
authorJoey Hess2016-04-27 15:40:28 -0400
committerJoey Hess2016-04-27 15:40:28 -0400
commita31c8e3d5f7bb01db2364a36b64c322223f20ec6 (patch)
treec4f44efc99e62105a6f2e861f210c52a000b309f /doc/todo/type_level_port_conflict_detection.mdwn
parentde99e4b6b45201d6af92eb0571ceaba678830989 (diff)
layout
Diffstat (limited to 'doc/todo/type_level_port_conflict_detection.mdwn')
-rw-r--r--doc/todo/type_level_port_conflict_detection.mdwn10
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 = ...
> >