Fix remaining comments

Author: kderme

cardano-chain-gen/src/Cardano/Mock/Forging/Tx/Alonzo/ScriptsExamples.hs

@@ -128,8 +128,3 @@ plutusDataEncLen = toShort $ toStrictByteString $ mconcat (encodeListLen 2 : (en
 
 plutusDataEncIndef :: ShortByteString
 plutusDataEncIndef = toShort $ toStrictByteString $ encodeList plutusData2
-
--- toBinaryPlutus :: AlonzoEraScript era => AlonzoScript era -> PlutusBinary
--- toBinaryPlutus as = case mkPlutusScript as of
---   Nothing -> panic "expected Alonzo script"
---   PlutusScript (Plutus _ sbs) -> sbs

cardano-db-sync/src/Cardano/DbSync/Fix/PlutusScripts.hs

@@ -110,18 +110,11 @@ findWrongPlutusScripts tracer =
       Just prevPoint
 
     hashPlutusScript dbScript = do
-      --      lang <- getLang -- TODO: Conway
       bytes <- maybeToEither "No bytes found for plutus script" id $ DB_V_13_0.scriptBytes dbScript
       let script :: AlonzoScript StandardAlonzo = PlutusScript (AlonzoPlutusV1 (Plutus $ PlutusBinary $ SBS.toShort bytes))
       let hsh :: Ledger.ScriptHash StandardCrypto = Ledger.hashScript @StandardAlonzo script
       Right $ Generic.unScriptHash hsh
 
---      where
---        getLang = case DB_V_13_0.scriptType dbScript of
---          PlutusV1 -> Right Ledger.PlutusV1
---          PlutusV2 -> Right Ledger.PlutusV2
---          _ -> Left "Non plutus script found where it shouldn't."
-
 fixPlutusScripts :: MonadIO m => Trace IO Text -> CardanoBlock -> FixPlutusScripts -> ReaderT SqlBackend m ()
 fixPlutusScripts tracer cblk fpss = do
   mapM_ fixData $ scriptsInfo fpss

cardano-db/src/Cardano/Db/Schema.hs

@@ -578,7 +578,7 @@ share
   DrepRegistration
     txId                TxId                noreference
     certIndex           Word16
-    deposit             Int64 Maybe                             -- Needs to allow negaitve values.
+    deposit             Int64 Maybe
     votingAnchorId      VotingAnchorId Maybe  noreference
     drepHashId          DrepHashId          noreference