use string for module names

2026-02-13 10:18:28 -08:00
parent 4ec199b064
commit 24048eadf1
12 changed files with 58 additions and 60 deletions
--- a/src/Lib/ReplParser.newt
+++ b/src/Lib/ReplParser.newt
@@ -36,7 +36,8 @@ replQN = do
  ident <- uident
  rest <- many $ token Projection
  let name = joinBy "" (ident :: rest)
-  pure $ uncurry QN $ unsnoc $ split1 name "."
+  let (ns,nm) = unsnoc $ split1 name "."
+  pure $ QN (joinBy "." ns) nm

 data ArgType = ArgNone | ArgString | ArgIdent | ArgOptInt | ArgQName