exporting lenses

mstksg · Jul 20, 2018 · ada4df3 · ada4df3
1 parent 2d57436
commit ada4df3
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/Interactive/Plot/Run.hs b/src/Interactive/Plot/Run.hs
@@ -1,6 +1,5 @@
 {-# LANGUAGE ApplicativeDo   #-}
 {-# LANGUAGE LambdaCase      #-}
-{-# LANGUAGE TemplateHaskell #-}
 
 module Interactive.Plot.Run (
     runPlot
@@ -17,7 +16,6 @@ import           Graphics.Vty
 import           Interactive.Plot.Core
 import           Interactive.Plot.Series
 import           Lens.Micro
-import           Lens.Micro.TH
 
 data PEvent = PEQuit
             | PEZoom   Double
@@ -52,7 +50,8 @@ data PlotState = PlotState
     , _psSerieses :: [Series]
     }
 
-makeLenses ''PlotState
+psRange :: Lens' PlotState (Coord (Range Double))
+psRange f (PlotState r s) = (`PlotState` s) <$> f r
 
 displayRange :: Output -> IO (Coord (Range Int))
 displayRange o = do