Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
jberryman
GHC
Commits
db503136
Commit
db503136
authored
Jan 27, 2006
by
simonpj@microsoft.com
Browse files
Fix typo in boxy matching
parent
19334330
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/compiler/typecheck/TcUnify.lhs
View file @
db503136
...
...
@@ -452,7 +452,7 @@ boxyLub orig_ty1 orig_ty2
= go orig_ty1 orig_ty2
where
go (AppTy f1 a1) (AppTy f2 a2) = AppTy (boxyLub f1 f2) (boxyLub a1 a2)
go (FunTy f1 a1) (FunTy f2 a2) =
App
Ty (boxyLub f1 f2) (boxyLub a1 a2)
go (FunTy f1 a1) (FunTy f2 a2) =
Fun
Ty (boxyLub f1 f2) (boxyLub a1 a2)
go (TyConApp tc1 ts1) (TyConApp tc2 ts2)
| tc1 == tc2, length ts1 == length ts2
= TyConApp tc1 (zipWith boxyLub ts1 ts2)
...
...
Write
Preview
Supports
Markdown
0%
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!
Cancel
Please
register
or
sign in
to comment