tbidne

{-# LANGUAGE DataKinds #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE OverloadedLabels #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE UndecidableInstances #-}

module Optics.Inference where

import Optics.Core (A_Lens, LabelOptic (labelOptic), lens, set)

tbidne

{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE ImportQualifiedPost #-}
{-# LANGUAGE TemplateHaskell #-}

module Main (main) where

import Control.Applicative (liftA2)
import Data.Aeson (Options (..), defaultOptions, eitherDecode')
import Data.Aeson.TH (deriveJSON)
import Data.ByteString.Internal qualified as BS