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