Update classifyfailure

src/Data/Macaw/Discovery.hs

@@ -760,7 +760,7 @@ fetchAndExecute' ctx b regs s' = do
           pure ParsedBlock { pblockLabel = lbl_idx
                            , pblockStmts = blockStmts b
                            , pblockState = regs'
-                           , pblockTerm  = ClassifyFailure "Could not classify block type."
+                           , pblockTerm  = ClassifyFailure s'
                            }
 
 type ParseConstraints arch = ( RegisterInfo (ArchReg arch)

src/Data/Macaw/Discovery/Info.hs

@@ -160,7 +160,7 @@ data ParsedTermStmt arch ids
      -- ^ A system call with the registers prior to call and given return address.
    | ParsedTranslateError !Text
      -- ^ An error occured in translating the block
-   | ClassifyFailure !String
+   | ClassifyFailure !(RegState (ArchReg arch) (Value arch ids))
      -- ^ The classifier failed to identity the block.
 
 deriving instance