Context: Context: rename accessors

Author: Anton-Latukha

src/Nix/Context.hs

@@ -9,24 +9,25 @@ import           Nix.Expr.Types.Annotated       ( SrcSpan
                                                 )
 
 --  2021-07-18: NOTE: It should be Options -> Scopes -> Frames -> Source(span)
-data Context m t = Context
-    { scopes  :: Scopes m t
-    , source  :: SrcSpan
-    , frames  :: Frames
-    , options :: Options
+data Context m t =
+  Context
+    { getOptions :: Options
+    , getScopes  :: Scopes m t
+    , getSource  :: SrcSpan
+    , getFrames  :: Frames
     }
 
 instance Has (Context m t) (Scopes m t) where
-  hasLens f a = (\x -> a { scopes = x }) <$> f (scopes a)
+  hasLens f a = (\x -> a { getScopes = x }) <$> f (getScopes a)
 
 instance Has (Context m t) SrcSpan where
-  hasLens f a = (\x -> a { source = x }) <$> f (source a)
+  hasLens f a = (\x -> a { getSource = x }) <$> f (getSource a)
 
 instance Has (Context m t) Frames where
-  hasLens f a = (\x -> a { frames = x }) <$> f (frames a)
+  hasLens f a = (\x -> a { getFrames = x }) <$> f (getFrames a)
 
 instance Has (Context m t) Options where
-  hasLens f a = (\x -> a { options = x }) <$> f (options a)
+  hasLens f a = (\x -> a { getOptions = x }) <$> f (getOptions a)
 
 newContext :: Options -> Context m t
-newContext = Context mempty nullSpan mempty
+newContext o = Context o mempty nullSpan mempty