on master help sign in
Use AST.Module.Name.isKernel instead of string matching
commit3399b4c760a919d05b25bc2427bc857676926b6f authorEvan Czaplicki <evancz@users.noreply.github.com> dateSun 14 May 2017, 16:33 (9 years ago) parent74a1fd1
1 file changed+2−1
src/Type/Solve.hs+2−1
src/Type/Solve.hs+2−1
@@ -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