Add missing case to FromCBOR (Annotator (Script era))

IntersectMBO · Oct 28, 2020 · 396acee · 396acee
1 parent cc9995f
commit 396acee
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/shelley-ma/impl/src/Cardano/Ledger/ShelleyMA/Scripts.hs b/shelley-ma/impl/src/Cardano/Ledger/ShelleyMA/Scripts.hs
@@ -32,6 +32,7 @@ import Data.Word (Word8)
 import GHC.Generics (Generic)
 import GHC.Records
 import NoThunks.Class
+import Shelley.Spec.Ledger.BaseTypes (invalidKey)
 import Shelley.Spec.Ledger.Scripts (MultiSig)
 import Shelley.Spec.Ledger.Tx
   ( ValidateScript (..),
@@ -61,6 +62,7 @@ instance Era era => FromCBOR (Annotator (Script era)) where
         1 -> do
           tl <- fromCBOR
           pure (2, ScriptTimelock <$> tl)
+        k -> invalidKey k
 
 type instance
   Core.Script (ShelleyMAEra (ma :: MaryOrAllegra) c) =