Commit 8d6e1b1d authored by Ian Lynagh's avatar Ian Lynagh

Fix some space-wasting in the Parser

(fst x, snd x) => x
parent d97181b7
......@@ -378,7 +378,7 @@ module :: { Located (HsModule RdrName) }
Nothing)) }
maybedocheader :: { (HaddockModInfo RdrName, Maybe (HsDoc RdrName)) }
: moduleheader { (fst $1, snd $1) }
: moduleheader { $1 }
| {- empty -} { (emptyHaddockModInfo, Nothing) }
missing_module_keyword :: { () }
......
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