runOnAsset :: (forall a. AssetLike a => a -> b) -> Asset -> b
runOnAsset fn (FileAsset f)      = fn f
runOnAsset :: (forall a. AssetLike a => a -> b) -> Asset -> b
runOnAsset fn (FileAsset f)      = fn f
runOnAsset fn (FileAsset f)      = fn f