2609.purs

module Main where

import Prelude
import Eg (Foo'(Bar'), (:->))
import Effect (Effect)
import Effect.Console (log)

bar' :: Foo'
bar' = 4 :-> 5

main :: Effect Unit
main = case bar' of Bar' l r -> log "Done"