switched from lens package to microlens
This commit is contained in:
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user