Skip to content

Commit ba0bb65

Browse files
committed
cleanup
1 parent 9c06f4a commit ba0bb65

File tree

1 file changed

+2
-2
lines changed
  • plugins/hls-semantic-tokens-plugin/src/Ide/Plugin/SemanticTokens

1 file changed

+2
-2
lines changed

plugins/hls-semantic-tokens-plugin/src/Ide/Plugin/SemanticTokens/Tokenize.hs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -64,8 +64,8 @@ mkPTokenState vf =
6464
}
6565

6666
-- lift a Tokenizer Maybe a to Tokenizer m a,
67-
-- if the Maybe is Nothing, do nothing, recover the state
68-
-- if the Maybe is Just a, do the action, and keep the state
67+
-- if the Maybe is Nothing, do nothing, recover the state, and return the default value
68+
-- if the Maybe is Just a, do the action, and keep the state, and return a
6969
liftMaybeM :: (Monad m) => a -> Tokenizer Maybe a -> Tokenizer m a
7070
liftMaybeM a p = do
7171
st <- get

0 commit comments

Comments
 (0)