- labelJump = BS.index b 4 == 'L'
- (jmp, b') = BS.break eolPred b
- (a', numx) = BS.breakEnd dollarPred a
- (num, x) = BS.break commaPred numx
- num' = BS.pack $ show (read (BS.unpack num) + 4::Int)
- fix = a' `BS.append` num' `BS.append` x `BS.append` jmp
+ labelJump = BS.index b 4 == 'L'
+ (jmp, b') = BS.break eolPred b
+ (a', numx) = BS.breakEnd dollarPred a
+ (strNum, x) = BS.break commaPred numx
+ Just num = readInt (BS.unpack strNum)
+ num' = BS.pack $ show (num + 4::Int)
+ fix = a' `BS.append` num' `BS.append` x `BS.append` jmp