convertBlock :: P.Block -> E.Block
convertBlock (P.Block maybeIdName arg statements) = E.Block maybeIdName (convertLValue arg) (convertStmts statements)
convertBlock :: P.Block -> E.Block
convertBlock (P.Block maybeIdName arg statements) = E.Block maybeIdName (convertLValue arg) (convertStmts statements)
convertBlock (P.Block maybeIdName arg statements) = E.Block maybeIdName (convertLValue arg) (convertStmts statements)