make hlint happy

LeventErkok · Jan 3, 2024 · 8273a13 · 8273a13
1 parent 4f2e9e5
commit 8273a13
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/Data/SBV/Control/Utils.hs b/Data/SBV/Control/Utils.hs
@@ -427,7 +427,7 @@ class (HasKind r, SatModel r) => SMTFunction fun a r | fun -> a r where
                             (sv, SBVApp (Uninterpreted nm) _) | r == sv -> return nm
                             _                                           -> cantFind uiMap
 
-  sexprToFun f (s, e) = do nm <- (fst . fst) <$> smtFunName f
+  sexprToFun f (s, e) = do nm    <- fst . fst <$> smtFunName f
                            mbRes <- case parseSExprFunction e of
                                       Just (Left nm') -> case (nm == nm', smtFunDefault f) of
                                                            (True, Just v)  -> return $ Just ([], v)

diff --git a/Documentation/SBV/Examples/ProofTools/AddHorn.hs b/Documentation/SBV/Examples/ProofTools/AddHorn.hs
@@ -98,3 +98,5 @@ verify = prove vcs
         vcs =   quantifiedBool (vc1 invariant)
             .&& quantifiedBool (vc3 invariant)
             .&& quantifiedBool (vc3 invariant)
+
+{- HLint ignore quantify "Redundant lambda" -}