@@ -20,7 +20,6 @@ import Control.Concurrent.MVar
2020import Control.Monad (filterM, mapM_, sequence_)
2121import qualified Data.ByteString as B
2222import qualified Data.Char as Char
23−import qualified Data.Either as Either
2423import qualified Data.Graph as Graph
2524import qualified Data.List as List
2625import qualified Data.Map.Utils as Map
@@ -669,9 +668,9 @@ compile (Env key root pkg _ _ _) docsNeed local@(Details.Local path time _ _) so
669668 do let name = Src.getName modul
670669 let iface = I.fromModule pkg canonical annotations
671670 let docs = makeDocs docsNeed canonical
672− let path = Stuff.elmi root name
671+ let elmi = Stuff.elmi root name
673672 File.writeBinary (Stuff.elmo root name) objects
674− maybeOldi <- File.readBinary path
673+ maybeOldi <- File.readBinary elmi
675674 case maybeOldi of
676675 Just oldi | oldi == iface ->
677676 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
680679
681680 _ ->
682681 do -- iface may be lazy still
683− File.writeBinary path iface
682+ File.writeBinary elmi iface
684683 Reporting.report key Reporting.BDone
685684 return (RNew local iface objects docs)
686685