make lenses for AppState

src/Password/App/Types.hs

@@ -22,12 +22,16 @@ License along with this program.  If not, see
 
 -}
 
+{-# LANGUAGE TemplateHaskell #-}
+
 module Password.App.Types (
   AppState (..),
+  randGen,
   mkInitialState
   ) where
 
 import Control.Monad.IO.Class (MonadIO)
+import Lens.Micro.TH
 import System.Random (StdGen, initStdGen)
 
 -- | The application state
@@ -36,6 +40,8 @@ newtype AppState = AppState
   -- ^ The random number generator
   } deriving (Eq, Show)
 
+makeLenses ''AppState
+
 -- | Builds an initial state
 mkInitialState :: MonadIO m => m AppState
 mkInitialState = AppState <$> initStdGen