Deriving Read and Show for records as if they weren't records

Derecordify.hs

{-# LANGUAGE DeriveGeneric, DerivingVia #-}

import GHC.Generics (Generic)
import Generic.Data
import Generic.Data.Microsurgery

data R = R {a :: Int, b :: Int}
  deriving Generic
  deriving (Read, Show) via Surgery Derecordify R

main :: IO ()
main = do
  print (read "R 0 1" :: R)
  -- Output: R 0 1