src/Lexer.hs

@@ -181,8 +181,8 @@ anchors =
         ]
 
 
-moduleName :: Parser Text
-moduleName = intercalate "." . fmap Text.pack <$> upperId `sepBy1` char '.'
+moduleNames :: Parser Text
+moduleNames = intercalate "." . fmap Text.pack <$> upperId `sepBy1` char '.'
 
 upperId :: Parser String
 upperId = (:) <$> satisfy isUpper <*> many1 identifierChar
@@ -197,7 +197,7 @@ modules :: Lexer
 modules = between (char '"') (char '"') inner
   where
     inner = do
-        module_ <- located $ Module <$> moduleName
+        module_ <- located $ Module <$> moduleNames
         mAnchor <- optionMaybe (located $ anchorHash *> (Anchor <$> anchorText))
         pure $ case mAnchor of
             Just anchor -> [module_, anchor]