switched from lens package to microlens

app/Types.hs

@@ -24,7 +24,8 @@ License along with this program.  If not, see
 
 module Types (Status (Status), gen, dbPath, masterPass, database) where
 
-import Control.Lens (makeLenses, set, (^.))
+import Lens.Micro (set, (^.))
+import Lens.Micro.TH (makeLenses)
 import System.Random (RandomGen (next, split), StdGen)
 
 import Password

app/UI.hs

@@ -24,10 +24,11 @@ License along with this program.  If not, see
 
 module UI (getMasterPass, mainMenu) where
 
-import Control.Lens (over, set, view, (^.))
 import Control.Monad (when)
 import Control.Monad.Trans.Class (lift)
 import qualified Control.Monad.Trans.State as S
+import Lens.Micro (over, set, (^.))
+import Lens.Micro.Extras (view)
 import System.Console.HCL
   ( Request
   , prompt

app/Util.hs

@@ -33,12 +33,13 @@ module Util
   , save
   ) where
 
-import Control.Lens (over, view)
 import Control.Monad (join)
 import Control.Monad.Trans.Class (lift)
 import qualified Control.Monad.Trans.State as S
 import Data.Aeson (decodeFileStrict, encodeFile)
 import Data.Maybe (fromJust, fromMaybe)
+import Lens.Micro (over)
+import Lens.Micro.Extras (view)
 import System.Console.HCL
   ( Request
   , prompt

package.yaml

@@ -24,7 +24,8 @@ dependencies:
 - aeson
 - bytestring
 - containers
-- lens
+- microlens >= 0.4.11.2 && < 0.5
+- microlens-th >= 0.4.3.6 && < 0.5
 - random
 
 ghc-options:

src/Password.hs

@@ -47,7 +47,6 @@ module Password (
   pwHasService, pwSetService, pwGetService, pwRemoveService, pwSearch
   ) where
 
-import Control.Lens (makeLenses, over, set, to, (^.))
 import Data.Aeson
   ( FromJSON (parseJSON)
   , ToJSON (toJSON)
@@ -67,6 +66,8 @@ import Data.Digest.Pure.SHA
 import qualified Data.Map as M
 import Data.Maybe (fromMaybe)
 import qualified Data.Text as T
+import Lens.Micro (over, set, to, (^.))
+import Lens.Micro.TH (makeLenses)
 import System.Random (RandomGen, randoms, split)
 
 -- | a mapping of service names to password data

test/Spec/NewPWData.hs

@@ -22,7 +22,7 @@ License along with this program.  If not, see
 
 module Spec.NewPWData (tests) where
 
-import Control.Lens ((^.))
+import Lens.Micro ((^.))
 import System.Random (mkStdGen, StdGen)
 import Test.HUnit (Test  (..), (~?=))
 

test/Spec/NewPWPolicy.hs

@@ -22,7 +22,7 @@ License along with this program.  If not, see
 
 module Spec.NewPWPolicy (tests) where
 
-import Control.Lens ((^.))
+import Lens.Micro ((^.))
 import Test.HUnit (Test(..), (~?=))
 
 import Password

test/Spec/PWGenerate.hs

@@ -22,8 +22,8 @@ License along with this program.  If not, see
 
 module Spec.PWGenerate (tests) where
 
-import Control.Lens (set, (^.))
 import Data.Maybe (fromJust)
+import Lens.Micro (set, (^.))
 import System.Random (mkStdGen, StdGen)
 import Test.HUnit
   (Test (..)

test/Spec/ValidatePWData.hs

@@ -22,8 +22,8 @@ License along with this program.  If not, see
 
 module Spec.ValidatePWData (tests) where
 
-import Control.Lens (set)
 import qualified Data.ByteString.Lazy as B
+import Lens.Micro (set)
 import System.Random (mkStdGen, StdGen)
 import Test.HUnit (Test (..), (~?=))
 

test/Spec/ValidatePWDatabase.hs

@@ -22,8 +22,8 @@ License along with this program.  If not, see
 
 module Spec.ValidatePWDatabase (tests) where
 
-import Control.Lens (set)
 import qualified Data.Map as M
+import Lens.Micro (set)
 import System.Random (mkStdGen, StdGen)
 import Test.HUnit (Test (..), (~?=))
 

test/Spec/ValidatePWPolicy.hs

@@ -22,7 +22,7 @@ License along with this program.  If not, see
 
 module Spec.ValidatePWPolicy (tests) where
 
-import Control.Lens (set)
+import Lens.Micro (set)
 import Test.HUnit (Test(..), (~?=))
 
 import Password