Commit b1086a07 authored by's avatar
Browse files

Fix bogus check for strictness in newtypes

parent 2b5d4ce9
......@@ -1008,7 +1008,8 @@ checkNewDataCon con
-- Return type is (T a b c)
; checkTc (null ex_tvs && null theta) (newtypeExError con)
-- No existentials
; checkTc (null (dataConStrictMarks con)) (newtypeStrictError con)
; checkTc (not (any isMarkedStrict (dataConStrictMarks con)))
(newtypeStrictError con)
-- No strictness
Supports Markdown
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