addTickHsCmd (HsCmdLet binds c) =
        bindLocals (collectLocalBinders binds) $
        liftM2 HsCmdLet
                (addTickHsLocalBinds binds) -- to think about: !patterns.
                (addTickLHsCmd c)
addTickHsCmd (HsCmdLet binds c) =
        bindLocals (collectLocalBinders binds) $
        liftM2 HsCmdLet
                (addTickHsLocalBinds binds) -- to think about: !patterns.
                (addTickLHsCmd c)
addTickHsCmd (HsCmdLet binds c) =
        bindLocals (collectLocalBinders binds) $
        liftM2 HsCmdLet
                (addTickHsLocalBinds binds) -- to think about: !patterns.
                (addTickLHsCmd c)