Setting.hs

module Lens.Family.Setting where

newtype Setting a = Setting { unSetting :: a }
instance Functor Setting where
  fmap f (Setting a) = Setting (f a)