14 lines
212 B
Agda
14 lines
212 B
Agda
module InferenceIssue
|
|
|
|
import Prelude
|
|
|
|
something : String → Maybe (Either String String)
|
|
|
|
foo : String → Maybe String
|
|
foo s = do
|
|
bar <- something s
|
|
case bar of
|
|
Left x => Just x
|
|
Right y => Just y
|
|
|