diff options
Diffstat (limited to 'app/Frontend.hs')
| -rw-r--r-- | app/Frontend.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/app/Frontend.hs b/app/Frontend.hs index 77706d8..e049365 100644 --- a/app/Frontend.hs +++ b/app/Frontend.hs @@ -11,7 +11,7 @@ import qualified Data.Map as M import Env (PrlgEnv) import qualified IR import qualified Interpreter as I -import Lens.Family2.State +import Lens.Micro.Mtl import Load ( compile , intern @@ -67,7 +67,7 @@ interpreterLoop queryMode = do then queryExpansion else loadExpansion) ast - finished <- lift $ cmdq `uses` null + finished <- lift $ null <$> use cmdq when finished . lift . lift . outputStrLn $ case (resOK, queryMode) of (True, True) -> "yes." |