fix

Author: tweag-ev-ak

lib/PSR/ContextBuilder.hs

@@ -16,14 +16,12 @@ module PSR.ContextBuilder (
 import Cardano.Api qualified as C
 import Cardano.Api.Ledger qualified as L
 import Cardano.Ledger.Alonzo qualified as Alonzo
-import Cardano.Ledger.Plutus qualified as Plutus
 import Control.Monad (guard)
 import Data.Map (Map)
 import Data.Map qualified as Map
 import Data.Maybe (mapMaybe)
 import Data.Set (Set)
 import Data.Set qualified as Set
-import Data.Text (Text)
 import PSR.Chain
 import PSR.ConfigMap (ConfigMap (..), ResolvedScript (..))
 import PSR.Evaluation.Api (evaluateTransactionExecutionUnitsShelley)

lib/PSR/Storage/SQLite.hs

@@ -101,47 +101,6 @@ mkStorage conn = do
                      in min limit 1000
                 offsetParameter = fromMaybe 0 _eventFilterParam_offset
 
-                mkNamedParam q n v = (q, n := v)
-                paramsWithQueries =
-                    catMaybes
-                        [ fmap
-                            ( mkNamedParam
-                                " ((CASE \
-                                \ WHEN :event_type = 'execution' THEN e.block_id \
-                                \ WHEN :event_type = 'cancellation' THEN c.block_id \
-                                \ WHEN :event_type = 'selection' THEN s.block_id \
-                                \ END) IS NOT NULL) "
-                                ":event_type"
-                                . toField
-                            )
-                            _eventFilterParam_type
-                        , fmap
-                            ( mkNamedParam
-                                " (e.name = :name_or_hash or e.script_hash = :name_or_hash or c.script_hash = :name_or_hash) "
-                                ":name_or_hash"
-                                . toField
-                            )
-                            _eventFilterParam_name_or_script_hash
-                        , fmap
-                            (mkNamedParam " b.slot_no >= :slot_begin " ":slot_begin" . toField)
-                            _eventFilterParam_slot_begin
-                        , fmap
-                            (mkNamedParam " b.slot_no <= :slot_end " ":slot_end" . toField)
-                            _eventFilterParam_slot_end
-                        , fmap
-                            ( mkNamedParam
-                                " (e.created_at >= :time_begin or c.created_at >= :time_begin or s.created_at >= :time_begin) "
-                                ":time_begin"
-                                . toField
-                            )
-                            _eventFilterParam_time_begin
-                        , fmap
-                            ( mkNamedParam
-                                " (e.created_at <= :time_end or c.created_at <= :time_end or s.created_at <= :time_end) "
-                                ":time_end"
-                                . toField
-                            )
-                            _eventFilterParam_time_end
                 mkNamedParam q n v = (" (" <> q <> ") " :: Text, n := v)
                 paramsWithQueries =
                     catMaybes