Skip to content
GitLab
Explore
Sign in
Register
Primary navigation
Search or go to…
Project
GHC
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Requirements
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Snippets
Locked files
Build
Pipelines
Jobs
Pipeline schedules
Test cases
Artifacts
Deploy
Releases
Package Registry
Container Registry
Model registry
Operate
Environments
Terraform modules
Monitor
Incidents
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Code review analytics
Issue analytics
Insights
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Terms and privacy
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Alexis King
GHC
Commits
fc867aa7
Commit
fc867aa7
authored
18 years ago
by
Simon Peyton Jones
Browse files
Options
Downloads
Patches
Plain Diff
Warning police
parent
71d2bf92
Loading
Loading
No related merge requests found
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
compiler/simplCore/Simplify.lhs
+1
-2
1 addition, 2 deletions
compiler/simplCore/Simplify.lhs
compiler/typecheck/TcTyDecls.lhs
+2
-2
2 additions, 2 deletions
compiler/typecheck/TcTyDecls.lhs
with
3 additions
and
4 deletions
compiler/simplCore/Simplify.lhs
+
1
−
2
View file @
fc867aa7
...
@@ -17,8 +17,7 @@ import Id
...
@@ -17,8 +17,7 @@ import Id
import Var
import Var
import IdInfo
import IdInfo
import Coercion
import Coercion
import DataCon ( dataConTyCon, dataConRepStrictness, dataConUnivTyVars )
import DataCon ( dataConRepStrictness, dataConUnivTyVars )
import TyCon ( tyConArity )
import CoreSyn
import CoreSyn
import NewDemand ( isStrictDmd )
import NewDemand ( isStrictDmd )
import PprCore ( pprParendExpr, pprCoreExpr )
import PprCore ( pprParendExpr, pprCoreExpr )
...
...
This diff is collapsed.
Click to expand it.
compiler/typecheck/TcTyDecls.lhs
+
2
−
2
View file @
fc867aa7
...
@@ -24,8 +24,6 @@ import HscTypes
...
@@ -24,8 +24,6 @@ import HscTypes
import TyCon
import TyCon
import Class
import Class
import DataCon
import DataCon
import Var
import VarSet
import Name
import Name
import NameEnv
import NameEnv
import NameSet
import NameSet
...
@@ -280,6 +278,7 @@ new_tc_rhs tc = snd (newTyConRhs tc) -- Ignore the type variables
...
@@ -280,6 +278,7 @@ new_tc_rhs tc = snd (newTyConRhs tc) -- Ignore the type variables
getTyCon (ATyCon tc) = tc
getTyCon (ATyCon tc) = tc
getTyCon (AClass cl) = classTyCon cl
getTyCon (AClass cl) = classTyCon cl
getTyCon other = panic "getTyCon"
findLoopBreakers :: [(TyCon, [TyCon])] -> [Name]
findLoopBreakers :: [(TyCon, [TyCon])] -> [Name]
-- Finds a set of tycons that cut all loops
-- Finds a set of tycons that cut all loops
...
@@ -312,6 +311,7 @@ tcTyConsOfType ty
...
@@ -312,6 +311,7 @@ tcTyConsOfType ty
go (PredTy (IParam _ ty)) = go ty
go (PredTy (IParam _ ty)) = go ty
go (PredTy (ClassP cls tys)) = go_tc (classTyCon cls) tys
go (PredTy (ClassP cls tys)) = go_tc (classTyCon cls) tys
go (ForAllTy _ ty) = go ty
go (ForAllTy _ ty) = go ty
go other = panic "tcTyConsOfType"
go_tc tc tys = extendNameEnv (go_s tys) (tyConName tc) tc
go_tc tc tys = extendNameEnv (go_s tys) (tyConName tc) tc
go_s tys = foldr (plusNameEnv . go) emptyNameEnv tys
go_s tys = foldr (plusNameEnv . go) emptyNameEnv tys
...
...
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment