Isolate deriving via test

src-literatetests/10-tests.blt

@@ -363,6 +363,12 @@ data Foo = Bar
   deriving anyclass (Show, Eq, Monad, Functor)
   deriving newtype Show
   deriving newtype (Traversable, Foldable)
+
+#test record deriving via
+data Foo = Bar
+  { foo  :: Baz
+  , bars :: Bizzz
+  }
   deriving ToJSON via (SomeType)
   deriving (ToJSON, FromJSON) via (SomeType)