check in import loop test, remove dead code/comment
This commit is contained in:
@@ -63,11 +63,8 @@ importHints (entry :: entries) = do
|
|||||||
processModule : FC → FileSource → List String → List String → M String
|
processModule : FC → FileSource → List String → List String → M String
|
||||||
processModule importFC repo stk modns = do
|
processModule importFC repo stk modns = do
|
||||||
top <- getTop
|
top <- getTop
|
||||||
-- let modns = (snoc ns nm)
|
|
||||||
let name = joinBy "." modns
|
let name = joinBy "." modns
|
||||||
let (Nothing) = lookupMap modns top.modules | _ => pure ""
|
let (Nothing) = lookupMap modns top.modules | _ => pure ""
|
||||||
-- dummy entry for processing
|
|
||||||
modifyTop [modules := updateMap modns (emptyModCtx "") top.modules]
|
|
||||||
|
|
||||||
let fn = joinBy "/" modns ++ ".newt"
|
let fn = joinBy "/" modns ++ ".newt"
|
||||||
-- TODO now we can pass in the module name...
|
-- TODO now we can pass in the module name...
|
||||||
|
|||||||
3
tests/Loop.newt
Normal file
3
tests/Loop.newt
Normal file
@@ -0,0 +1,3 @@
|
|||||||
|
module Loop
|
||||||
|
|
||||||
|
import Loop
|
||||||
2
tests/Loop.newt.fail
Normal file
2
tests/Loop.newt.fail
Normal file
@@ -0,0 +1,2 @@
|
|||||||
|
*** Process tests/Loop.newt
|
||||||
|
ERROR at tests/Loop.newt:3:8--3:12: import loop Loop → Loop
|
||||||
Reference in New Issue
Block a user