Remove redundant bind and return
This commit is contained in:
parent
81e84c2939
commit
e272fa04ee
|
@ -209,8 +209,7 @@ startSpan = IncompleteInterval <$> getPosition
|
|||
|
||||
endSpan (IncompleteInterval start) = do
|
||||
endPos <- getPosition
|
||||
id <- getNextIdBetween start endPos
|
||||
return id
|
||||
getNextIdBetween start endPos
|
||||
|
||||
getSpanPositionsFor m = do
|
||||
start <- getPosition
|
||||
|
|
Loading…
Reference in New Issue