From 03e6e4ca9d171d05f64b9c53756db58936d79125 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lars=20Br=C3=BCnjes?= <brunjlar@gmail.com>
Date: Wed, 21 Jul 2021 13:18:50 +0200
Subject: [PATCH] removed sample solution

---
 .../plutus-pioneer-program-week04.cabal       |  1 -
 code/week04/src/Week04/Solution.hs            | 54 -------------------
 2 files changed, 55 deletions(-)
 delete mode 100644 code/week04/src/Week04/Solution.hs

diff --git a/code/week04/plutus-pioneer-program-week04.cabal b/code/week04/plutus-pioneer-program-week04.cabal
index d684ebb..d3deb2a 100644
--- a/code/week04/plutus-pioneer-program-week04.cabal
+++ b/code/week04/plutus-pioneer-program-week04.cabal
@@ -15,7 +15,6 @@ library
                      , Week04.Homework
                      , Week04.Maybe
                      , Week04.Monad
-                     , Week04.Solution
                      , Week04.Trace
                      , Week04.Writer
   other-modules:       Week04.Vesting
diff --git a/code/week04/src/Week04/Solution.hs b/code/week04/src/Week04/Solution.hs
deleted file mode 100644
index 7ba6f0d..0000000
--- a/code/week04/src/Week04/Solution.hs
+++ /dev/null
@@ -1,54 +0,0 @@
-{-# LANGUAGE DataKinds         #-}
-{-# LANGUAGE DeriveAnyClass    #-}
-{-# LANGUAGE DeriveGeneric     #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE TypeApplications  #-}
-{-# LANGUAGE TypeOperators     #-}
-
-module Week04.Solution where
-
-import Data.Aeson             (FromJSON, ToJSON)
-import Data.Functor           (void)
-import Data.Text              (Text, unpack)
-import GHC.Generics           (Generic)
-import Ledger
-import Ledger.Ada             as Ada
-import Ledger.Constraints     as Constraints
-import Plutus.Contract        as Contract
-import Plutus.Trace.Emulator  as Emulator
-import Wallet.Emulator.Wallet
-
-data PayParams = PayParams
-    { ppRecipient :: PubKeyHash
-    , ppLovelace  :: Integer
-    } deriving (Show, Generic, FromJSON, ToJSON)
-
-type PaySchema = Endpoint "pay" PayParams
-
-payContract :: Contract () PaySchema Text ()
-payContract = do
-    pp <- endpoint @"pay"
-    let tx = mustPayToPubKey (ppRecipient pp) $ lovelaceValueOf $ ppLovelace pp
-    handleError (\err -> Contract.logInfo $ "caught error: " ++ unpack err) $ void $ submitTx tx
-    payContract
-
-payTrace :: Integer -> Integer -> EmulatorTrace ()
-payTrace x y = do
-    h <- activateContractWallet (Wallet 1) payContract
-    let pkh = pubKeyHash $ walletPubKey $ Wallet 2
-    callEndpoint @"pay" h $ PayParams
-        { ppRecipient = pkh
-        , ppLovelace  = x
-        }
-    void $ Emulator.waitNSlots 1
-    callEndpoint @"pay" h $ PayParams
-        { ppRecipient = pkh
-        , ppLovelace  = y
-        }
-    void $ Emulator.waitNSlots 1
-
-payTest1 :: IO ()
-payTest1 = runEmulatorTraceIO $ payTrace 1000000 2000000
-
-payTest2 :: IO ()
-payTest2 = runEmulatorTraceIO $ payTrace 1000000000 2000000