@@ -54,7 +54,7 @@ jsonToModule :: Value -> Module Ann
5454jsonToModule value =
5555 case parse moduleFromJSON value of
5656 Success (_, r) -> r
57− _ -> error "failed"
57+ _ -> error "failed"
5858
5959main :: IO ()
6060main = do
@@ -164,13 +164,12 @@ writeSupportFiles baseOutpath = do
164164 let goModSource = path </> "go.mod"
165165 goModSourceExists <- doesFileExist goModSource
166166 when (not goModSourceExists) $ do
167− currentDir <- getCurrentDirectory
168167 project <- projectEnv
169168 let project' = T.unpack project
170169 outputdir' = tail $ T.unpack outputdir
171170 modText' = T.replace "$PROJECT" project $ T.decodeUtf8 modText
172− replaceLoader = project' </> ffiLoader' <> "=" <> currentDir </> subdir
173− replaceOutput = project' </> modPrefix' <> "=" <> currentDir </> outputdir'
171+ replaceLoader = project' </> ffiLoader' <> "=." </> subdir
172+ replaceOutput = project' </> modPrefix' <> "=." </> outputdir'
174173 B.writeFile goModSource $ T.encodeUtf8 modText'
175174 callProcess "go" ["mod", "edit", "-replace", replaceLoader]
176175 callProcess "go" ["mod", "edit", "-replace", replaceOutput]