Ticket #6027: type-op-fixity.patch

File type-op-fixity.patch, 489 bytes (added by atnnn, 3 years ago)

this patch has arguments in the correct order

  • compiler/parser/Parser.y.pp

    diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp
    index fc6a950..0d3eb07 100644
    a b tyconsym :: { Located RdrName } 
    18641864
    18651865op      :: { Located RdrName }   -- used in infix decls
    18661866        : varop                 { $1 }
     1867        | 'type' varop          { sL (comb2 $1 $>) (setRdrNameSpace (unLoc $2) tcClsName) }
    18671868        | conop                 { $1 }
    18681869
    18691870varop   :: { Located RdrName }