Make auto gas configurable

haskell · Apr 24, 2021 · 0156bac · 0156bac
1 parent 828c0fc
commit 0156bac
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/plugins/hls-tactics-plugin/src/Wingman/Auto.hs b/plugins/hls-tactics-plugin/src/Wingman/Auto.hs
@@ -1,5 +1,7 @@
+
 module Wingman.Auto where
 
+import           Control.Monad.Reader.Class (asks)
 import           Control.Monad.State (gets)
 import qualified Data.Set as S
 import           Refinery.Tactic
@@ -17,13 +19,14 @@ auto :: TacticsM ()
 auto = do
   jdg <- goal
   skolems <- gets ts_skolems
+  gas <- asks $ cfg_auto_gas . ctxConfig
   current <- getCurrentDefinitions
   traceMX "goal" jdg
   traceMX "ctx" current
   traceMX "skolems" skolems
   commit knownStrategies
     . tracing "auto"
-    . localTactic (auto' 4)
+    . localTactic (auto' gas)
     . disallowing RecursiveCall
     . S.fromList
     $ fmap fst current