Skip to content
Permalink
Browse files

Stylish haskell

  • Loading branch information
j-mueller committed Feb 14, 2020
1 parent 9a6bc55 commit 7bf418f31260c734b9e2e7d1dc5798e1b363cef1
@@ -37,8 +37,7 @@ import Data.Void (Void)

import Language.Plutus.Contract
import qualified Language.PlutusTx as PlutusTx
import Language.PlutusTx.StateMachine (State (..), StateMachine (..),
StateMachineInstance (..))
import Language.PlutusTx.StateMachine (State (..), StateMachine (..), StateMachineInstance (..))
import qualified Language.PlutusTx.StateMachine as SM
import Ledger (Value)
import qualified Ledger
@@ -26,8 +26,8 @@ import Data.Foldable (traverse_)
import Data.Map (Map)
import qualified Data.Map as Map
import Data.Semigroup (First (..))
import Data.Set (Set)
import qualified Data.Set as Set
import Data.Set (Set)
import Data.Text.Prettyprint.Doc
import GHC.Generics (Generic)
import IOTS (IotsType)
@@ -95,7 +95,7 @@ scriptLookups inst =
}

-- | An unbalanced transaction. It needs to be balanced and signed before it
-- can be submitted to the ledeger. See note [Submitting transactions from
-- can be submitted to the ledeger. See note [Submitting transactions from
-- Plutus contracts] in 'Language.Plutus.Contract.Wallet'.
data UnbalancedTx =
UnbalancedTx
@@ -1,8 +1,8 @@
{-# LANGUAGE TypeApplications #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE TypeApplications #-}
{-# OPTIONS_GHC -Wno-simplifiable-class-constraints #-}
{-# OPTIONS_GHC -Wno-redundant-constraints #-}
{-# OPTIONS_GHC -fno-strictness #-}
@@ -27,23 +27,23 @@ module Ledger.Oracle(
, signObservation
) where

import qualified Data.ByteString.Lazy as BSL
import GHC.Generics (Generic)
import qualified Data.ByteString.Lazy as BSL
import GHC.Generics (Generic)

import Language.PlutusTx
import Language.PlutusTx.Prelude

import Ledger.Constraints (TxConstraints)
import qualified Ledger.Constraints as Constraints
import Ledger.Crypto (PrivateKey, PubKey (..), Signature (..))
import qualified Ledger.Crypto as Crypto
import Ledger.Scripts (DataValue (..), DataValueHash (..))
import qualified Ledger.Scripts as Scripts
import Ledger.Slot (Slot)
import Ledger.Validation (PendingTx)
import Ledger.Constraints (TxConstraints)
import qualified Ledger.Constraints as Constraints
import Ledger.Crypto (PrivateKey, PubKey (..), Signature (..))
import qualified Ledger.Crypto as Crypto
import Ledger.Scripts (DataValue (..), DataValueHash (..))
import qualified Ledger.Scripts as Scripts
import Ledger.Slot (Slot)
import Ledger.Validation (PendingTx)
import LedgerBytes

import qualified Prelude as Haskell
import qualified Prelude as Haskell

-- $oracles
-- This module provides a way to verify signed messages, and a type for

0 comments on commit 7bf418f

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