1 files changed, 3 insertions, 3 deletions

diff --git a/src/Main.hs b/src/Main.hs
index 06cc6ed..f4a863f 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -2,7 +2,7 @@
 
 import Control.Monad
 
-import Control.Lens
+import Control.Lens hiding (Context(..))
 
 import System.Console.Shell
 import System.Console.Shell.ShellMonad
@@ -146,7 +146,7 @@ rollTest = withArg $ enactTest' >=> maybe (return ()) (shellPutStrLn . ppResult)
 
 enactTest' :: (FormulaM Stats Test) -> Sh GameState (Maybe TestResult)
 enactTest' test = withFocus' $ \focus -> do
-  (newStats, result) <- evalFormula (view eStats focus) (enactTest =<< test)
-  gFocus'.eStats .= newStats
+  (newFocus, result) <- evalFormula focus (enactTest =<< test)
+  gFocus' .= newFocus
   return result