Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
GHC
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Locked Files
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Iterations
Merge Requests
0
Merge Requests
0
Requirements
Requirements
List
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Security & Compliance
Security & Compliance
Dependency List
License Compliance
Operations
Operations
Incidents
Environments
Packages & Registries
Packages & Registries
Package Registry
Container Registry
Analytics
Analytics
CI / CD
Code Review
Insights
Issue
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Alex D
GHC
Commits
d591b19b
Commit
d591b19b
authored
Jul 12, 2014
by
Gabor Greif
💬
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Rectify some panic messages
parent
c70a7201
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
6 deletions
+6
-6
compiler/typecheck/TcSMonad.lhs
compiler/typecheck/TcSMonad.lhs
+6
-6
No files found.
compiler/typecheck/TcSMonad.lhs
View file @
d591b19b
...
...
@@ -1147,8 +1147,8 @@ nestImplicTcS ref inner_untch inerts (TcS thing_inside)
, tcs_ty_binds = ty_binds
, tcs_count = count
, tcs_inerts = new_inert_var
, tcs_worklist = panic "ne
x
tImplicTcS: worklist"
, tcs_implics = panic "ne
x
tImplicTcS: implics"
, tcs_worklist = panic "ne
s
tImplicTcS: worklist"
, tcs_implics = panic "ne
s
tImplicTcS: implics"
-- NB: Both these are initialised by withWorkList
}
; res <- TcM.setUntouchables inner_untch $
...
...
@@ -1176,8 +1176,8 @@ nestTcS (TcS thing_inside)
do { inerts <- TcM.readTcRef inerts_var
; new_inert_var <- TcM.newTcRef inerts
; let nest_env = env { tcs_inerts = new_inert_var
, tcs_worklist = panic "ne
xtImplic
TcS: worklist"
, tcs_implics = panic "ne
xtImplic
TcS: implics" }
, tcs_worklist = panic "ne
st
TcS: worklist"
, tcs_implics = panic "ne
st
TcS: implics" }
; thing_inside nest_env }
tryTcS :: TcS a -> TcS a
...
...
@@ -1195,8 +1195,8 @@ tryTcS (TcS thing_inside)
; let nest_env = env { tcs_ev_binds = ev_binds_var
, tcs_ty_binds = ty_binds_var
, tcs_inerts = is_var
, tcs_worklist = panic "
nextImplic
TcS: worklist"
, tcs_implics = panic "
nextImplic
TcS: implics" }
, tcs_worklist = panic "
try
TcS: worklist"
, tcs_implics = panic "
try
TcS: implics" }
; thing_inside nest_env }
-- Getters and setters of TcEnv fields
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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