makeNextBlockButton :: Int64 -> BlockGraph Element
makeNextBlockButton offset = do
    info <- askInfo
    let Just (ELF.BinarySection sectionOffset stream) = ELF.sectionFromName ".text" info
    w <- askElement
    buttonArm <- lift $ UI.button #. "button" #+ [string $ printf "Next Arm at: %d" offset]
    buttonThumb <-lift $ UI.button #. "button" #+ [string $ printf "Next Thumb at: %d" offset]
    lift $ (on UI.click buttonArm $ \_ -> do 
        runReaderT (displayElfTextSection $ parseArmBlock offset stream) (w,info))
    lift $ (on UI.click buttonThumb $ \_ -> do 
        runReaderT (displayElfTextSection $ parseThumbBlock offset stream) (w,info))
    lift $ UI.div #+ [element buttonArm, UI.br, element buttonThumb]
makeNextBlockButton :: Int64 -> BlockGraph Element
makeNextBlockButton offset = do
    info <- askInfo
    let Just (ELF.BinarySection sectionOffset stream) = ELF.sectionFromName ".text" info
    w <- askElement
    buttonArm <- lift $ UI.button #. "button" #+ [string $ printf "Next Arm at: %d" offset]
    buttonThumb <-lift $ UI.button #. "button" #+ [string $ printf "Next Thumb at: %d" offset]
    lift $ (on UI.click buttonArm $ \_ -> do 
        runReaderT (displayElfTextSection $ parseArmBlock offset stream) (w,info))
    lift $ (on UI.click buttonThumb $ \_ -> do 
        runReaderT (displayElfTextSection $ parseThumbBlock offset stream) (w,info))
    lift $ UI.div #+ [element buttonArm, UI.br, element buttonThumb]
makeNextBlockButton offset = do
    info <- askInfo
    let Just (ELF.BinarySection sectionOffset stream) = ELF.sectionFromName ".text" info
    w <- askElement
    buttonArm <- lift $ UI.button #. "button" #+ [string $ printf "Next Arm at: %d" offset]
    buttonThumb <-lift $ UI.button #. "button" #+ [string $ printf "Next Thumb at: %d" offset]
    lift $ (on UI.click buttonArm $ \_ -> do 
        runReaderT (displayElfTextSection $ parseArmBlock offset stream) (w,info))
    lift $ (on UI.click buttonThumb $ \_ -> do 
        runReaderT (displayElfTextSection $ parseThumbBlock offset stream) (w,info))
    lift $ UI.div #+ [element buttonArm, UI.br, element buttonThumb]