@@ -200,7 +200,7 @@ loadTypesHelp root modul =
200 Build.Unneeded ->
200 Build.Unneeded ->
201 do mvar <- newEmptyMVar
201 do mvar <- newEmptyMVar
202 _ <- forkIO $
202 _ <- forkIO $
203− do maybeIface <- File.readBinary (Stuff.elmo root name)
203+ do maybeIface <- File.readBinary (Stuff.elmi root name)
204 putMVar mvar (Extract.fromInterface name <$> maybeIface)
204 putMVar mvar (Extract.fromInterface name <$> maybeIface)
205 return mvar
205 return mvar