support inline module definitions
This commit is contained in:
@@ -746,8 +746,11 @@ modulefields :: { Module }
|
|||||||
| {- empty -} { emptyModule }
|
| {- empty -} { emptyModule }
|
||||||
|
|
||||||
mod :: { Module }
|
mod :: { Module }
|
||||||
: '(' 'module' modulefields ')' EOF { reverseModuleFields $3 }
|
: '(' mod1 { $2 }
|
||||||
| modulefields EOF { reverseModuleFields $1 }
|
|
||||||
|
mod1 :: { Module }
|
||||||
|
: 'module' modulefields ')' EOF { reverseModuleFields $2 }
|
||||||
|
| modulefield1 modulefields EOF { reverseModuleFields $ foldl' (flip appendModuleField) $2 $1 }
|
||||||
|
|
||||||
-- utils
|
-- utils
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user