more RawFilePath conversion
Converted file mode setting to it, and follow-on changes. Compiles up through 369/646. This commit was sponsored by Ethan Aubin.
This commit is contained in:
parent
9b0dde834e
commit
2c8cf06e75
31 changed files with 239 additions and 182 deletions
|
@ -189,7 +189,8 @@ insertAuthToken extractAuthToken predicate webapp root pathbits params =
|
|||
{- Creates a html shim file that's used to redirect into the webapp,
|
||||
- to avoid exposing the secret token when launching the web browser. -}
|
||||
writeHtmlShim :: String -> String -> FilePath -> IO ()
|
||||
writeHtmlShim title url file = viaTmp writeFileProtected file $ genHtmlShim title url
|
||||
writeHtmlShim title url file =
|
||||
viaTmp writeFileProtected (toRawFilePath file) $ genHtmlShim title url
|
||||
|
||||
genHtmlShim :: String -> String -> String
|
||||
genHtmlShim title url = unlines
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue