postgresql-pure-0.1.0.0: src/Database/PostgreSQL/Pure/Internal/IsLabel.hs

{-# LANGUAGE FlexibleInstances     #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE ScopedTypeVariables   #-}
{-# LANGUAGE TypeApplications      #-}

{-# OPTIONS_GHC -Wno-orphans #-}

module Database.PostgreSQL.Pure.Internal.IsLabel () where

import           GHC.OverloadedLabels (IsLabel (fromLabel))
import           GHC.Records          (HasField (getField))

instance HasField x r a => IsLabel x (r -> a) where
  fromLabel = getField @x