4 lines
117 B
Text
4 lines
117 B
Text
instance [Alternative m] : MonadLiftT Option m where
|
|
monadLift := fun
|
|
| some a => pure a
|
|
| none => failure
|