File tree Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Original file line number Diff line number Diff line change @@ -61,10 +61,10 @@ renderDataTypeInfo n d@(DCon tag arity newtypeArg) = do
6161 fullName <- getFullName rn
6262 case ! (lookupDefName fullName context) of
6363 -- Render the TCon for this DCon
64- [(defName, _ , tcon@(TCon _ _ _ _ _ _ _ _ ))] => renderDataTypeInfo defName tcon
64+ [(defName, _ , tcon@(TCon _ _ _ _ _ _ _ ))] => renderDataTypeInfo defName tcon
6565 _ => pure Nothing
6666 _ => pure Nothing
67- renderDataTypeInfo n d@(TCon tag arity parampos detpos flags mutwith datacons detagabbleBy) = do
67+ renderDataTypeInfo n d@(TCon arity parampos detpos flags mutwith datacons detagabbleBy) = do
6868 -- Render the data structure information for the type.
6969 context <- gets Ctxt gamma
7070 constructors <- for (fromMaybe [] datacons) $ \ dn => case ! (lookupDefName dn context) of
You can’t perform that action at this time.
0 commit comments