@@ -20,7 +20,6 @@ import Control.Concurrent.MVar
20import Control.Monad (filterM, mapM_, sequence_)
20import Control.Monad (filterM, mapM_, sequence_)
21import qualified Data.ByteString as B
21import qualified Data.ByteString as B
22import qualified Data.Char as Char
22import qualified Data.Char as Char
23−import qualified Data.Either as Either
24import qualified Data.Graph as Graph
23import qualified Data.Graph as Graph
25import qualified Data.List as List
24import qualified Data.List as List
26import qualified Data.Map.Utils as Map
25import qualified Data.Map.Utils as Map
@@ -669,9 +668,9 @@ compile (Env key root pkg _ _ _) docsNeed local@(Details.Local path time _ _) so
669 do let name = Src.getName modul
668 do let name = Src.getName modul
670 let iface = I.fromModule pkg canonical annotations
669 let iface = I.fromModule pkg canonical annotations
671 let docs = makeDocs docsNeed canonical
670 let docs = makeDocs docsNeed canonical
672− let path = Stuff.elmi root name
671+ let elmi = Stuff.elmi root name
673 File.writeBinary (Stuff.elmo root name) objects
672 File.writeBinary (Stuff.elmo root name) objects
674− maybeOldi <- File.readBinary path
673+ maybeOldi <- File.readBinary elmi
675 case maybeOldi of
674 case maybeOldi of
676 Just oldi | oldi == iface ->
675 Just oldi | oldi == iface ->
677 do -- iface should be fully forced by equality check
676 do -- iface should be fully forced by equality check
@@ -680,7 +679,7 @@ compile (Env key root pkg _ _ _) docsNeed local@(Details.Local path time _ _) so
682 do -- iface may be lazy still
681 do -- iface may be lazy still
683− File.writeBinary path iface
682+ File.writeBinary elmi iface
684 Reporting.report key Reporting.BDone
683 Reporting.report key Reporting.BDone
685 return (RNew local iface objects docs)
684 return (RNew local iface objects docs)