Changeset 12840
- Timestamp:
- 18.11.2009 16:56:14 (4 months ago)
- Files:
-
- 1 modified
-
trunk/Proofs/QualifyNames.hs (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Proofs/QualifyNames.hs
r12602 r12840 47 47 dg0 <- updateRefNodes (le, m) $ lookupDGraph ln le 48 48 (dg, trm) <- qualifyDGraph ln dg0 49 return ( Map.insert ln (computeDGraphTheories le dg) le, Map.insert ln trm m))50 (libEnv, Map.empty)51 $ getTopsortedLibs libEnv49 return ( Map.insert ln (computeDGraphTheories le dg) le 50 , Map.insert ln trm m)) 51 (libEnv, Map.empty) $ getTopsortedLibs libEnv 52 52 53 53 type RenameMap = Map.Map Int (GMorphism, GMorphism)