Is it possible to use an identifier such that: ``` data Foo = Foo Int String .... withListing () $ named [("foo", Foo <$> singleRead <*> singleRead)] ```