more OsPath conversion (749/749)

Builds with and without OsPath build flag.

Unfortunately, the test suite fails.

Sponsored-by: unqueued on Patreon

Utility/WebApp.hs

@@ -185,11 +185,9 @@ 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 :: String -> String -> OsPath -> IO ()
 writeHtmlShim title url file = 
-	viaTmp (writeFileProtected)
-		(toOsPath $ toRawFilePath file) 
-		(genHtmlShim title url)
+	viaTmp (writeFileProtected) file (genHtmlShim title url)
 
 genHtmlShim :: String -> String -> String
 genHtmlShim title url = unlines