wip: switching from ncurses to brick

src/Mtlstats/Helpers/Position.hs

@@ -28,12 +28,12 @@ module Mtlstats.Helpers.Position
   , getPositions
   ) where
 
-import Control.Monad.Trans.State (gets)
 import Data.Char (toUpper)
 import Data.List (isInfixOf)
 import Data.Maybe (fromMaybe)
 import qualified Data.Set as S
 import Lens.Micro ((^.), to)
+import Lens.Micro.Mtl (use)
 
 import Mtlstats.Types
 import Mtlstats.Util
@@ -78,7 +78,7 @@ posCallback
 posCallback callback = \case
   Nothing -> callback ""
   Just n  -> do
-    ps <- gets (^.database.to getPositions)
+    ps <- use (database.to getPositions)
     let pos = fromMaybe "" $ nth n ps
     callback pos