purescript-0.9.1: examples/passing/810.purs

module Main where

import Prelude
import Control.Monad.Eff.Console (log)

data Maybe a = Nothing | Just a

test :: forall a. Maybe a -> Maybe a
test m = o.x
  where
    o = case m of Nothing -> { x : Nothing }
                  Just a  -> { x : Just a }

main = log "Done"