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) 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)