-- | Execute an action.
swishCommand :: SwishAction -> SwishStateIO ()
swishCommand (SA (_,act)) = act
swishCommand :: SwishAction -> SwishStateIO ()
swishCommand (SA (_,act)) = act
swishCommand (SA (_,act)) = act