Remove redundant bind and return

This commit is contained in:
Joseph C. Sible 2020-12-28 18:04:32 -05:00
parent 81e84c2939
commit e272fa04ee
1 changed files with 1 additions and 2 deletions

View File

@ -209,8 +209,7 @@ startSpan = IncompleteInterval <$> getPosition
endSpan (IncompleteInterval start) = do endSpan (IncompleteInterval start) = do
endPos <- getPosition endPos <- getPosition
id <- getNextIdBetween start endPos getNextIdBetween start endPos
return id
getSpanPositionsFor m = do getSpanPositionsFor m = do
start <- getPosition start <- getPosition