Skip to content
Permalink
Browse files

Merge pull request #897 from input-output-hk/marlowe-tutorial-link

just realised that the marlowe tutorial is in a different repo so the…
  • Loading branch information...
shmish111 committed Apr 11, 2019
2 parents 9eabe12 + c801c06 commit 3785ed43fe66b59bb8ea3378c7942dfb0015e975
Showing with 1 addition and 2 deletions.
  1. +1 −2 meadow-client/src/MainFrame.purs
@@ -51,7 +51,6 @@ import Marlowe.Parser (contract)
import Marlowe.Pretty (pretty)
import Marlowe.Types (BlockNumber, Choice, Contract(Null), IdChoice(IdChoice), IdOracle, Person, WIdChoice(WIdChoice))
import Meadow (SPParams_, getOauthStatus, patchGistsByGistId, postGists, postContractHaskell)
import Meadow.Contracts (gitHead)
import Network.HTTP.Affjax (AJAX)
import Network.RemoteData (RemoteData(Success, NotAsked), _Success, isLoading, isSuccess)
import Prelude (not, (||), type (~>), Unit, Void, bind, const, discard, id, pure, show, unit, void, ($), (+), (-), (<$>), (<<<), (<>), (==))
@@ -626,7 +625,7 @@ mainHeader = div_ [ div [classes [btnGroup, pullRight]] (makeLink <$> links)
, h1 [class_ $ ClassName "main-title"] [text "Meadow"]
]
where
links = [ Tuple "Tutorial" $ "https://github.com/input-output-hk/marlowe/blob/" <> gitHead <> "/docs/tutorial-v2.0/README.md"
links = [ Tuple "Tutorial" $ "https://github.com/input-output-hk/marlowe/blob/master/docs/tutorial-v2.0/README.md"
, Tuple "Privacy" "https://static.iohk.io/docs/data-protection/iohk-data-protection-gdpr-policy.pdf"
]
makeLink (Tuple name link) = a [ classes [ btn

0 comments on commit 3785ed4

Please sign in to comment.
You can’t perform that action at this time.