diff options
| author | Cale Gibbard <cgibbard@gmail.com> | 2020-07-30 14:00:19 -0400 |
|---|---|---|
| committer | Richard Eisenberg <rae@richarde.dev> | 2020-11-25 23:18:35 -0500 |
| commit | acf235d607879eb9542127eb0ddb42a250b5b850 (patch) | |
| tree | ab41b4f5840cd6a7631e4f2b2c94da010e88e614 /haddock-api/src/Haddock/Convert.hs | |
| parent | 8d260690b53f2fb6b54ba78bd13d1400d9ebd395 (diff) | |
Add type arguments to PrefixCon
Diffstat (limited to 'haddock-api/src/Haddock/Convert.hs')
| -rw-r--r-- | haddock-api/src/Haddock/Convert.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Convert.hs b/haddock-api/src/Haddock/Convert.hs index 5f9940fc..b59602b6 100644 --- a/haddock-api/src/Haddock/Convert.hs +++ b/haddock-api/src/Haddock/Convert.hs @@ -398,7 +398,7 @@ synifyDataCon use_gadt_syntax dc = mk_h98_arg_tys = case (use_named_field_syntax, use_infix_syntax) of (True,True) -> Left "synifyDataCon: contradiction!" (True,False) -> return $ RecCon (noLoc field_tys) - (False,False) -> return $ PrefixCon (map hsUnrestricted linear_tys) + (False,False) -> return $ PrefixCon noTypeArgs (map hsUnrestricted linear_tys) (False,True) -> case linear_tys of [a,b] -> return $ InfixCon (hsUnrestricted a) (hsUnrestricted b) _ -> Left "synifyDataCon: infix with non-2 args?" |