refactor: introduce helper function for handling option

See https://twitter.com/GiulioCanti/status/1219915763550707712

src/Chat/Twilio/api.ts

@@ -12,6 +12,7 @@ import * as TE from 'fp-ts/lib/TaskEither'
 import { pipe } from 'fp-ts/lib/pipeable'
 import { Option, fromNullable } from 'fp-ts/lib/Option'
 import { Paginator } from 'twilio-chat/lib/interfaces/paginator'
+import { getOrElse } from '../../fp-ts.util'
 
 type ErrorInfo = {
 	type: string
@@ -110,8 +111,7 @@ export const connectToChannel = async ({
 			pipe(
 				fetchSubscribedChannels(client),
 				TE.map(maybeAlreadyJoinedChannel(context)),
-				TE.map(TE.fromOption<void>(() => undefined)),
-				chain(TE.orElse(joinChannel({ client, channel: context }))),
+				getOrElse(joinChannel({ client, channel: context })),
 			),
 		),
 	)()

src/fp-ts.util.ts

@@ -0,0 +1,9 @@
+import { TaskEither, taskEither } from 'fp-ts/lib/TaskEither'
+import { Option } from 'fp-ts/lib/Option'
+import { getOptionM } from 'fp-ts/lib/OptionT'
+
+const M = getOptionM(taskEither)
+export const getOrElse = <E, A>(
+	onNone: () => TaskEither<E, A>,
+): ((ma: TaskEither<E, Option<A>>) => TaskEither<E, A>) => ma =>
+	M.getOrElse(ma, onNone)