parseSkip :: MonadPlus m => Text -> m Action
parseSkip t
  | t == "skip" = return Skip
  | otherwise = mzero
parseSkip :: MonadPlus m => Text -> m Action
parseSkip t
  | t == "skip" = return Skip
  | otherwise = mzero
parseSkip t
  | t == "skip" = return Skip
  | otherwise = mzero