fix: hlint warning on using maybe

IntersectMBO · Oct 28, 2024 · 69267e7 · 69267e7
1 parent 9e9e9a7
commit 69267e7
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 5 deletions.
diff --git a/govtool/backend/sql/list-dreps.sql b/govtool/backend/sql/list-dreps.sql
@@ -138,11 +138,7 @@ WHERE
   (
     COALESCE(?, '') = '' OR
     dh.view ILIKE ? OR
-    off_chain_vote_drep_data.payment_address ILIKE ? OR
     off_chain_vote_drep_data.given_name ILIKE ? OR
-    off_chain_vote_drep_data.objectives ILIKE ? OR
-    off_chain_vote_drep_data.motivations ILIKE ? OR
-    off_chain_vote_drep_data.qualifications ILIKE ?
   )
 GROUP BY
   dh.raw,

diff --git a/govtool/backend/src/VVA/Proposal.hs b/govtool/backend/src/VVA/Proposal.hs
@@ -69,7 +69,7 @@ getProposals ::
   (Has ConnectionPool r, Has VVAConfig r, MonadReader r m, MonadIO m, MonadFail m, MonadError AppError m) =>
   Maybe [Text] -> m [Proposal]
 getProposals mSearchTerms = withPool $ \conn -> do
-  let searchParam = fromMaybe "" (fmap head mSearchTerms)
+  let searchParam = maybe "" head mSearchTerms
   liftIO $ SQL.query conn listProposalsSql 
     ( searchParam
     , "%" <> searchParam <> "%"