Use importPrim

purescript · Jul 11, 2017 · d14f1f4 · d14f1f4
1 parent 82427f3
commit d14f1f4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/server/Main.hs b/server/Main.hs
@@ -69,7 +69,7 @@ server bundled externs initEnv port = do
             Right (_, m) | P.getModuleName m == P.ModuleName [P.ProperName "Main"] -> do
               (resultMay, _) <- runLogger' . runExceptT . flip runReaderT P.defaultOptions $ do
                 ((P.Module ss coms moduleName elaborated exps, env), nextVar) <- P.runSupplyT 0 $ do
-                  [desugared] <- P.desugar externs [P.addDefaultImport (P.Qualified Nothing (P.ModuleName [P.ProperName "Prim"])) m]
+                  [desugared] <- P.desugar externs [P.importPrim m]
                   P.runCheck' (P.emptyCheckState initEnv) $ P.typeCheckModule desugared
                 regrouped <- P.createBindingGroups moduleName . P.collapseBindingGroups $ elaborated
                 let mod' = P.Module ss coms moduleName regrouped exps