formating
This commit is contained in:
parent
64ea1b7930
commit
c5a8caeb53
|
@ -4,24 +4,24 @@ Still working on the reprepro property :)
|
||||||
|
|
||||||
Here A property that I am using to publish a repository via apache (this is a prototype)
|
Here A property that I am using to publish a repository via apache (this is a prototype)
|
||||||
|
|
||||||
website :: String -> Property
|
website :: String -> Property
|
||||||
website hn = toProp $ Apache.siteEnabled hn apachecfg
|
website hn = toProp $ Apache.siteEnabled hn apachecfg
|
||||||
where
|
where
|
||||||
apachecfg = [ "<VirtualHost *>"
|
apachecfg = [ "<VirtualHost *>"
|
||||||
, "DocumentRoot " ++ basePath
|
, "DocumentRoot " ++ basePath
|
||||||
, "<Directory " ++ basePath ++ ">"
|
, "<Directory " ++ basePath ++ ">"
|
||||||
, " Options Indexes FollowSymLinks Multiviews"
|
, " Options Indexes FollowSymLinks Multiviews"
|
||||||
, " Order allow,deny"
|
, " Order allow,deny"
|
||||||
, Apache.allowAll
|
, Apache.allowAll
|
||||||
, "</Directory>"
|
, "</Directory>"
|
||||||
] ++ concatMap deny ["db", "conf", "incoming"]
|
] ++ concatMap deny ["db", "conf", "incoming"]
|
||||||
++ ["</VirtualHost>"]
|
++ ["</VirtualHost>"]
|
||||||
|
|
||||||
deny dir = [ "<Directory \"" ++ basePath ++ "apt/*/" ++ dir ++ "\">"
|
deny dir = [ "<Directory \"" ++ basePath ++ "apt/*/" ++ dir ++ "\">"
|
||||||
, " Order deny,allow"
|
, " Order deny,allow"
|
||||||
, " Deny from all"
|
, " Deny from all"
|
||||||
, "</Directory>"
|
, "</Directory>"
|
||||||
]
|
]
|
||||||
|
|
||||||
during my test I am runing the config.hs with
|
during my test I am runing the config.hs with
|
||||||
runhaskell config.hs (it work the first time, the apache config files are ok)
|
runhaskell config.hs (it work the first time, the apache config files are ok)
|
||||||
|
|
Loading…
Reference in New Issue