mirror of
https://github.com/digital-asset/daml.git
synced 2024-09-20 17:28:46 +03:00
18 lines
310 B
Haskell
18 lines
310 B
Haskell
-- Copyright (c) 2020, Digital Asset (Switzerland) GmbH and/or its
|
|
-- affiliates. All rights reserved.
|
|
module TyConAppCoercion (X(..)) where
|
|
|
|
class MyClass a where
|
|
f1 : Optional a -> a
|
|
f1 = error ""
|
|
|
|
f2 : [a] -> a
|
|
f2 = error ""
|
|
|
|
data X = X
|
|
|
|
instance MyClass X where
|
|
|
|
newtype Y = Y X
|
|
deriving MyClass
|