aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/OverloadedLabels/infix-overloaded-label.hs

{- ORACLE_TEST pass -}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE OverloadedLabels #-}

module InfixOverloadedLabel where

import GHC.OverloadedLabels

data L = L

instance IsLabel "a" L where
  fromLabel = L

(^.) :: a -> L -> ()
(^.) = undefined

f :: ()
f = undefined ^. #a