finished this stage of the RawFilePath conversion
This commit was sponsored by Denis Dzyubenko on Patreon.
This commit is contained in:
parent
2c8cf06e75
commit
1db49497e0
27 changed files with 100 additions and 93 deletions
|
@ -190,7 +190,7 @@ insertAuthToken extractAuthToken predicate webapp root pathbits params =
|
|||
- to avoid exposing the secret token when launching the web browser. -}
|
||||
writeHtmlShim :: String -> String -> FilePath -> IO ()
|
||||
writeHtmlShim title url file =
|
||||
viaTmp writeFileProtected (toRawFilePath file) $ genHtmlShim title url
|
||||
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