1
1
mirror of https://github.com/github/semantic.git synced 2024-11-27 03:09:48 +03:00
This commit is contained in:
Rob Rix 2022-07-15 14:49:33 -04:00
parent 841cd22d0b
commit a507b45e9f
No known key found for this signature in database
GPG Key ID: 2BE643E01DC032AE
2 changed files with 2 additions and 2 deletions

View File

@ -1,4 +1,4 @@
-- NB: This file exists solely for development of this single package. For cross-package development, cd to the root of the project and run `script/repl` from there.
-- Local packages
packages: .
packages: . ../semantic-source

View File

@ -48,7 +48,7 @@ instance Monoid (ModuleSet a) where
mempty = ModuleSet mempty
fromList :: [File (Module a)] -> ModuleSet a
fromList = ModuleSet . Map.fromList . map (\ (File ref mod) -> (refName ref , mod))
fromList = ModuleSet . Map.fromList . map (\ (File ref mod) -> (refName ref, mod))
where
refName (Reference path _) = name (Text.pack (Path.toString (Path.takeBaseName path)))