formating

This commit is contained in:
picca 2014-12-08 09:18:16 +00:00 committed by admin
parent 64ea1b7930
commit c5a8caeb53
1 changed files with 18 additions and 18 deletions

View File

@ -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)
website :: String -> Property
website hn = toProp $ Apache.siteEnabled hn apachecfg
where
apachecfg = [ "<VirtualHost *>"
, "DocumentRoot " ++ basePath
, "<Directory " ++ basePath ++ ">"
, " Options Indexes FollowSymLinks Multiviews"
, " Order allow,deny"
, Apache.allowAll
, "</Directory>"
] ++ concatMap deny ["db", "conf", "incoming"]
++ ["</VirtualHost>"]
deny dir = [ "<Directory \"" ++ basePath ++ "apt/*/" ++ dir ++ "\">"
, " Order deny,allow"
, " Deny from all"
, "</Directory>"
]
website :: String -> Property
website hn = toProp $ Apache.siteEnabled hn apachecfg
where
apachecfg = [ "<VirtualHost *>"
, "DocumentRoot " ++ basePath
, "<Directory " ++ basePath ++ ">"
, " Options Indexes FollowSymLinks Multiviews"
, " Order allow,deny"
, Apache.allowAll
, "</Directory>"
] ++ concatMap deny ["db", "conf", "incoming"]
++ ["</VirtualHost>"]
deny dir = [ "<Directory \"" ++ basePath ++ "apt/*/" ++ dir ++ "\">"
, " Order deny,allow"
, " Deny from all"
, "</Directory>"
]
during my test I am runing the config.hs with
runhaskell config.hs (it work the first time, the apache config files are ok)