Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
e415777c
Commit
e415777c
authored
Dec 07, 2012
by
jpm@cs.ox.ac.uk
Browse files
Detabbing
parent
27770ae5
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/typecheck/TcGenGenerics.lhs
View file @
e415777c
...
...
@@ -294,7 +294,7 @@ canDoGenerics1_w rep_tc
check_vanilla :: DataCon -> Maybe SDoc
check_vanilla con | isVanillaDataCon con = Nothing
| otherwise
= Just (bad con existential)
| otherwise
= Just (bad con existential)
-- the Bool is if the parameter occurs in the type
ft_check :: DataCon -> FFoldType (Bool, S.State [Name] (Maybe SDoc))
...
...
@@ -306,7 +306,7 @@ canDoGenerics1_w rep_tc
-- applications, so we must compensate with extra logic
-- to ensure that the variable only occurs as the last
-- argument.
, ft_fun = \x y -> if fst x then (True, return $ Just $ bad con wrong_arg)
, ft_fun = \x y -> if fst x then (True, return $ Just $ bad con wrong_arg)
else x `bmplus` y
, ft_tup = \_ xs ->
if not (null xs) && any fst (init xs)
...
...
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