riscv haskell: fail ArchInv.IRQControlInvocation
Use fail instead of error so we don't have to prove unreachability for all properties.
This commit is contained in:
parent
d224325b43
commit
c764565b51
|
@ -33,7 +33,7 @@ decodeIRQControlInvocation label args srcSlot extraCaps =
|
|||
throw IllegalOperation
|
||||
|
||||
performIRQControl :: ArchInv.IRQControlInvocation -> KernelP ()
|
||||
performIRQControl = error "Unreachable due to no IRQControl decode on this arch."
|
||||
performIRQControl _ = fail "Unreachable due to no IRQControl decode on this arch."
|
||||
|
||||
handleReservedIRQ :: IRQ -> Kernel ()
|
||||
handleReservedIRQ _ = return ()
|
||||
|
|
Loading…
Reference in New Issue