Commit b1086a07 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

Fix bogus check for strictness in newtypes

parent 2b5d4ce9
...@@ -1008,7 +1008,8 @@ checkNewDataCon con ...@@ -1008,7 +1008,8 @@ checkNewDataCon con
-- Return type is (T a b c) -- Return type is (T a b c)
; checkTc (null ex_tvs && null theta) (newtypeExError con) ; checkTc (null ex_tvs && null theta) (newtypeExError con)
-- No existentials -- No existentials
; checkTc (null (dataConStrictMarks con)) (newtypeStrictError con) ; checkTc (not (any isMarkedStrict (dataConStrictMarks con)))
(newtypeStrictError con)
-- No strictness -- No strictness
} }
where where
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment