newtype WithNewlines t a = WithNewlines { unNewLines :: t a }
instance (Show a
, Foldable t
) => Show (WithNewlines t a
) where
[1
,2
,3
,4
,5]
bmV3dHlwZSBXaXRoTmV3bGluZXMgdCBhID0gV2l0aE5ld2xpbmVzIHsgdW5OZXdMaW5lcyA6OiB0IGEgfQoKaW5zdGFuY2UgKFNob3cgYSwgRm9sZGFibGUgdCkgPT4gU2hvdyAoV2l0aE5ld2xpbmVzIHQgYSkgd2hlcmUKICBzaG93ID0gdW5saW5lcyAuIGNvbmNhdE1hcCAocHVyZSAuIHNob3cpIC4gdW5OZXdMaW5lcwoKbWFpbiA9IHB1dFN0ckxuICQgc2hvdyAkIFdpdGhOZXdsaW5lcwoJWzEKCSwyCgksMwoJLDQKCSw1XQ==