Add a newSystemInterface to go with the rest of the new* constructors

This commit is contained in:
Vidar Holen
2023-08-13 16:32:53 -07:00
parent d18b2553cf
commit 90d3172dfe
2 changed files with 13 additions and 4 deletions

View File

@@ -396,7 +396,7 @@ ioInterface options files = do
inputs <- mapM normalize files
cache <- newIORef emptyCache
configCache <- newIORef ("", Nothing)
return SystemInterface {
return (newSystemInterface :: SystemInterface IO) {
siReadFile = get cache inputs,
siFindSource = findSourceFile inputs (sourcePaths options),
siGetConfig = getConfig configCache