@@ -9,6 +9,7 @@ import qualified Data.Map as Map
99import qualified Data.Text as Text
1010import qualified Data.UnionFind.IO as UF
1111
12+import qualified AST.Module.Name as ModuleName
1213import qualified Reporting.Annotation as A
1314import qualified Reporting.Error.Type as Error
1415import qualified Type.State as TS
@@ -199,7 +200,7 @@ actuallySolve constraint =
199200 TS.makeInstance tipe
200201
201202 Nothing ->
202− if Text.isPrefixOf "Elm.Kernel." name then
203+ if ModuleName.isKernel name then
203204 liftIO (mkVar Nothing)
204205
205206 else