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
c244ae2a
Commit
c244ae2a
authored
Apr 02, 2004
by
simonpj
Browse files
[project @ 2004-04-02 16:51:45 by simonpj]
Wibble to last commit
parent
40888e1d
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/compiler/deSugar/DsMeta.hs
View file @
c244ae2a
...
...
@@ -290,11 +290,11 @@ repBangTy (L _ (BangType str ty)) = do
repDerivs
::
Maybe
[
LHsType
Name
]
->
DsM
(
Core
[
TH
.
Name
])
repDerivs
Nothing
=
coreList
nameTyConName
[]
repDerivs
(
Just
(
L
_
ctxt
)
)
repDerivs
(
Just
ctxt
)
=
do
{
strs
<-
mapM
rep_deriv
ctxt
;
coreList
nameTyConName
strs
}
where
rep_deriv
::
LHs
Pred
Name
->
DsM
(
Core
TH
.
Name
)
rep_deriv
::
LHs
Type
Name
->
DsM
(
Core
TH
.
Name
)
-- Deriving clauses must have the simple H98 form
rep_deriv
(
L
_
(
HsPredTy
(
L
_
(
HsClassP
cls
[]
))))
=
lookupOcc
cls
rep_deriv
other
=
panic
"rep_deriv"
...
...
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