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
|
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
|
||||||
|
|
Loading…
Reference in New Issue