@@ -9,6 +9,7 @@ import qualified Data.Map as Map
9import qualified Data.Text as Text
9import qualified Data.Text as Text
10import qualified Data.UnionFind.IO as UF
10import qualified Data.UnionFind.IO as UF
12+import qualified AST.Module.Name as ModuleName
12import qualified Reporting.Annotation as A
13import qualified Reporting.Annotation as A
13import qualified Reporting.Error.Type as Error
14import qualified Reporting.Error.Type as Error
14import qualified Type.State as TS
15import qualified Type.State as TS
@@ -199,7 +200,7 @@ actuallySolve constraint =
199 TS.makeInstance tipe
200 TS.makeInstance tipe
201 Nothing ->
202 Nothing ->
202− if Text.isPrefixOf "Elm.Kernel." name then
203+ if ModuleName.isKernel name then
203 liftIO (mkVar Nothing)
204 liftIO (mkVar Nothing)