1
1
mirror of https://github.com/github/semantic.git synced 2024-12-30 10:27:45 +03:00
This commit is contained in:
Timothy Clem 2018-03-07 09:34:39 -08:00
parent 8bb77aaaf1
commit 524116baf5

View File

@ -22,4 +22,4 @@ moduleTableLookup :: ModuleName -> ModuleTable a -> Maybe a
moduleTableLookup k = Map.lookup k . unModuleTable
moduleTableInsert :: ModuleName -> a -> ModuleTable a -> ModuleTable a
moduleTableInsert k v ModuleTable {..} = ModuleTable (Map.insert k v unModuleTable)
moduleTableInsert k v ModuleTable{..} = ModuleTable (Map.insert k v unModuleTable)