{-# LANGUAGE CPP #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE UndecidableInstances #-}
#if __GLASGOW_HASKELL__ >= 802
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE TypeApplications #-}
{-# OPTIONS_GHC -fno-warn-simplifiable-class-constraints #-}
#endif
{-# OPTIONS_GHC -fno-warn-orphans #-}
module Lens.Labels.Unwrapped where
import GHC.OverloadedLabels (IsLabel (..))
import Lens.Labels (LensFn (..))
instance IsLabel x (LensFn p q) => IsLabel x (p -> q) where
#if __GLASGOW_HASKELL__ >= 802
fromLabel = runLens $ fromLabel @x
#else
fromLabel x = runLens $ fromLabel x
#endif