From 86cd635a2efbca312f5b570604d802fce9a5196c Mon Sep 17 00:00:00 2001
From: Thomas Winant <thomas@well-typed.com>
Date: Thu, 23 Jul 2020 18:09:18 +0200
Subject: [PATCH] Replace dependency on lens with microlens

---
 goblins.cabal                | 4 +++-
 src/Test/Goblin/Core.hs      | 3 ++-
 src/Test/Goblin/Instances.hs | 2 +-
 3 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/goblins.cabal b/goblins.cabal
index 815bc47..d8b8eb5 100644
--- a/goblins.cabal
+++ b/goblins.cabal
@@ -38,7 +38,9 @@ library
                      , containers
                      , extra
                      , hedgehog
-                     , lens
+                     , microlens
+                     , microlens-mtl
+                     , microlens-th
                      , mmorph
                      , monad-control
                      , moo
diff --git a/src/Test/Goblin/Core.hs b/src/Test/Goblin/Core.hs
index 2f70bea..ae66c4b 100644
--- a/src/Test/Goblin/Core.hs
+++ b/src/Test/Goblin/Core.hs
@@ -14,7 +14,6 @@ module Test.Goblin.Core
   , (<**>)
   ) where
 
-import           Control.Lens
 import           Control.Monad (replicateM)
 import           Control.Monad.Trans.State.Strict (State)
 import           Data.Typeable (Typeable)
@@ -23,6 +22,8 @@ import qualified Data.TypeRepMap as TM
 import           Hedgehog (Gen)
 import qualified Hedgehog.Gen as Gen
 import qualified Hedgehog.Range as Range
+import           Lens.Micro.Mtl ((%=), (.=), use)
+import           Lens.Micro.TH (makeLenses)
 import           Moo.GeneticAlgorithm.Types (Genome, Population)
 
 import           Test.Goblin.Util
diff --git a/src/Test/Goblin/Instances.hs b/src/Test/Goblin/Instances.hs
index f4b2189..d714a0e 100644
--- a/src/Test/Goblin/Instances.hs
+++ b/src/Test/Goblin/Instances.hs
@@ -9,7 +9,6 @@ module Test.Goblin.Instances where
 
 import           Control.Applicative (liftA2)
 import           Control.Monad (replicateM)
-import           Control.Lens
 import qualified Data.Bimap as Bimap
 import           Data.Char (chr)
 import           Data.List (splitAt)
@@ -22,6 +21,7 @@ import           Data.Typeable (Typeable)
 import           Data.Word (Word8, Word64)
 import           Hedgehog (Gen)
 import qualified Hedgehog.Gen as Gen
+import           Lens.Micro.Mtl ((.=), use)
 import           Moo.GeneticAlgorithm.Binary (bitsNeeded, decodeBinary)
 import           Numeric.Natural (Natural)