singletons-1.0: tests/compile-and-dump/Singletons/LambdaCase.hs

module Singletons.LambdaCase where

import Data.Singletons.Prelude
import Data.Singletons.SuppressUnusedWarnings
import Data.Singletons.TH

$(singletons [d|
  foo1 :: a -> Maybe a -> a
  foo1 d x = (\case
               Just y  -> y
               Nothing -> d) x

  foo2 :: a -> Maybe a -> a
  foo2 d _ = (\case
               Just y  -> y
               Nothing -> d) (Just d)

  foo3 :: a -> b -> a
  foo3 a b = (\case
               (p, _)  -> p) (a, b)
 |])

foo1a :: Proxy (Foo1 Int (Just Char))
foo1a = Proxy

foo1b :: Proxy Char
foo1b = foo1a

foo2a :: Proxy (Foo2 Char Nothing)
foo2a = Proxy

foo2b :: Proxy Char
foo2b = foo2a

foo3a :: Proxy (Foo3 Int Char)
foo3a = Proxy

foo3b :: Proxy Int
foo3b = foo3a