displayElfTextSection :: ArmBlock -> BlockGraph ()
displayElfTextSection block = do
    info <- askInfo
    let offset = offsetBlock block
    let Just (ELF.BinarySection sectionOffset stream) = ELF.sectionFromName ".text" info
    let instructions = instructionsBlock block
    buttonNext <- sequence $ map makeNextBlockButton (nextBlocks block)
    title <- lift $ UI.h4 # set UI.text (printf "Block at offset: %08X" (offset+sectionOffset))
    listInstruction <- sequence $ map (displayInstruction (offset + sectionOffset)) instructions
    displayBlock <- lift $ UI.div #+ listInstruction
    body <- askElement
    gridElem <- lift $ grid [[element title], [element displayBlock], fmap element buttonNext] # set (UI.attr "id") (printf "block%d" offset)
    lift $ element gridElem # set UI.draggable True
    {-- lift $ draggable gridElem --}
    lift $ element body #+ [element gridElem]
    return ()
displayElfTextSection :: ArmBlock -> BlockGraph ()
displayElfTextSection block = do
    info <- askInfo
    let offset = offsetBlock block
    let Just (ELF.BinarySection sectionOffset stream) = ELF.sectionFromName ".text" info
    let instructions = instructionsBlock block
    buttonNext <- sequence $ map makeNextBlockButton (nextBlocks block)
    title <- lift $ UI.h4 # set UI.text (printf "Block at offset: %08X" (offset+sectionOffset))
    listInstruction <- sequence $ map (displayInstruction (offset + sectionOffset)) instructions
    displayBlock <- lift $ UI.div #+ listInstruction
    body <- askElement
    gridElem <- lift $ grid [[element title], [element displayBlock], fmap element buttonNext] # set (UI.attr "id") (printf "block%d" offset)
    lift $ element gridElem # set UI.draggable True
    {-- lift $ draggable gridElem --}
    lift $ element body #+ [element gridElem]
    return ()
displayElfTextSection block = do
    info <- askInfo
    let offset = offsetBlock block
    let Just (ELF.BinarySection sectionOffset stream) = ELF.sectionFromName ".text" info
    let instructions = instructionsBlock block
    buttonNext <- sequence $ map makeNextBlockButton (nextBlocks block)
    title <- lift $ UI.h4 # set UI.text (printf "Block at offset: %08X" (offset+sectionOffset))
    listInstruction <- sequence $ map (displayInstruction (offset + sectionOffset)) instructions
    displayBlock <- lift $ UI.div #+ listInstruction
    body <- askElement
    gridElem <- lift $ grid [[element title], [element displayBlock], fmap element buttonNext] # set (UI.attr "id") (printf "block%d" offset)
    lift $ element gridElem # set UI.draggable True
    {-- lift $ draggable gridElem --}
    lift $ element body #+ [element gridElem]
    return ()