1 files changed, 2 insertions, 2 deletions
diff --git a/app/Load.hs b/app/Load.hs
index f705114..9fb4c94 100644
--- a/app/Load.hs
+++ b/app/Load.hs
@@ -8,7 +8,7 @@ import Control.Monad.Trans.Except (ExceptT, except)
 import qualified Data.Map as M
 import Env (findAtom, findStruct, withStrTable)
 import qualified IR
-import Lens.Family2.State
+import Lens.Micro.Mtl
 import qualified Parser as P
 import qualified Text.Megaparsec as MP
 
@@ -53,7 +53,7 @@ expansion noexpand expander output x = do
   es <- findStruct expander 2
   o <- findAtom output
   comma <- findAtom ","
-  expand <- defs `uses` M.member es
+  expand <- M.member es <$> use defs
   pure $
     if expand
       then IR.CallI