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
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