mirror of
https://github.com/digital-asset/daml.git
synced 2024-11-10 10:46:11 +03:00
151e12b81a
This is the result of: - Updating `./COPY` to say `2023`. - Running `./dev-env/bin/dade-copyright-headers update .`
58 lines
1.3 KiB
Haskell
58 lines
1.3 KiB
Haskell
-- Copyright (c) 2023 Digital Asset (Switzerland) GmbH and/or its affiliates. All rights reserved.
|
|
-- SPDX-License-Identifier: Apache-2.0
|
|
|
|
module Interfaces where
|
|
|
|
data EmptyInterfaceView = EmptyInterfaceView {}
|
|
|
|
interface I1 where
|
|
viewtype EmptyInterfaceView
|
|
getOwner1 : Party
|
|
choice C1 : ()
|
|
controller getOwner1 this
|
|
do pure ()
|
|
|
|
interface I2 where
|
|
viewtype EmptyInterfaceView
|
|
getOwner2 : Party
|
|
choice C2 : ()
|
|
controller getOwner2 this
|
|
do pure ()
|
|
|
|
interface I3 requires I4 where
|
|
viewtype EmptyInterfaceView
|
|
|
|
interface I4 where
|
|
viewtype EmptyInterfaceView
|
|
getOwner4 : Party
|
|
choice C4 : ()
|
|
controller getOwner4 this
|
|
do pure ()
|
|
|
|
template T1
|
|
with
|
|
owner1 : Party
|
|
where
|
|
signatory owner1
|
|
interface instance I1 for T1 where
|
|
view = EmptyInterfaceView
|
|
getOwner1 = owner1
|
|
choice OwnChoice : ()
|
|
controller owner1
|
|
do pure ()
|
|
|
|
template T2
|
|
with
|
|
owner2 : Party
|
|
where
|
|
signatory owner2
|
|
interface instance I1 for T2 where
|
|
view = EmptyInterfaceView
|
|
getOwner1 = owner2
|
|
interface instance I2 for T2 where
|
|
view = EmptyInterfaceView
|
|
getOwner2 = owner2
|
|
interface instance I4 for T2 where
|
|
view = EmptyInterfaceView
|
|
getOwner4 = owner2
|