"Lift" nested Option to outside of object about monocle-ts HOT 2 CLOSED

import { array } from 'fp-ts/lib/Array'
import { Option, option, some } from 'fp-ts/lib/Option'
import { Prism } from 'monocle-ts'

export interface Resource {
  id: number
  type: Option<string>
}

const resources = [{ id: 5, type: some('pen') }, { id: 7, type: some('car') }]

export interface Resource2 {
  id: number
  type: string
}

const toResource2 = new Prism<Resource, Resource2>(
  s => s.type.map(type => ({ ...s, type })),
  a => ({ ...a, type: some(a.type) })
)

const resources2 = array.traverse(option)(resources, toResource2.getOption)