- createFile baseDir curDir map uri =
- if Map.member uri map
- then return map
- else do
- let fp = fromMaybe (error "Couldn't convert file path")
- (uriToFilePath uri)
- relativeFp = makeRelative baseDir fp
- actualFp = curDir </> relativeFp
-
- -- Need to store in a directory inside tmp directory
- -- otherwise ghc-mod ends up creating one for us
- tmpDir <- (</> "lsp-test" </> takeDirectory relativeFp) <$> getTemporaryDirectory
- createDirectoryIfMissing True tmpDir
-
- (tmpFp, tmpH) <- openTempFile tmpDir (takeFileName actualFp)
-
- readFile actualFp >>= hPutStr tmpH
- tmpUri <- filePathToUri <$> canonicalizePath tmpFp
- return $ Map.insert uri tmpUri map
-
-cleanupFiles :: IO ()
-cleanupFiles = removeDirectoryRecursive =<< (</> "lsp-test") <$> getTemporaryDirectory
+ transform map uri = do
+ let fp = fromMaybe (error "Couldn't convert file path") $ uriToFilePath uri
+ rel = makeRelative oldBaseDir fp
+ newFp = newBaseDir </> rel
+ newUri <- filePathToUri <$> canonicalizePath newFp
+ return $ Map.insert uri newUri map