marcosh/crem
1
1
Fork 0
mirror of https://github.com/marcosh/crem.git synced 2024-10-05 16:30:15 +03:00
Code Issues Packages Projects Releases Wiki Activity

apply changes for fourmolu 0.10.1.0

Browse Source
This commit is contained in:
Marco Perone 2023-03-15 08:15:51 +01:00 committed by Marco Perone
parent 82ed279ea9
commit 636943727e
11 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/Crem/Example/RiskManager/Projection.hs
View File

@ -17,8 +17,8 @@ import Crem.BaseMachine
import Crem.Example.RiskManager.Domain
import Crem.Topology
import "base" Data.Monoid (Last (..))
import "singletons-base" Data.Singletons.Base.TH
import "base" GHC.Generics (Generic)
import "singletons-base" Data.Singletons.Base.TH
data ReceivedData = ReceivedData
{ receivedUserData :: Maybe UserData

2
examples/Crem/Example/TheHobbit.hs
View File

@ -186,4 +186,4 @@ hobbitMachine initialState =
TrollsCaveState -> \case
GoSouth -> hobbitResult $ TrollsPathState DoorUnlocked
_ -> hobbitResult TrollsCaveState
}
}

2
hobbit-game/Main.hs
View File

@ -2,9 +2,9 @@
module Main where
import "base" Data.Functor.Identity
import "crem" Crem.Example.TheHobbit
import "crem" Crem.StateMachine
import "base" Data.Functor.Identity
main :: IO ()
main = do

2
hobbit-map/Main.hs
View File

@ -2,10 +2,10 @@
module Main where
import "base" Data.Functor.Identity
import "crem" Crem.BaseMachine
import "crem" Crem.Example.TheHobbit
import "crem" Crem.Render.Render
import "base" Data.Functor.Identity
import "text" Data.Text.IO qualified as Text
main :: IO ()

4
spec/Crem/DeciderSpec.hs
View File

@ -3,11 +3,11 @@
module Crem.DeciderSpec where
import Crem.StateMachine (StateMachineT (..), run)
import "base" Data.Functor.Identity (Identity)
import "crem" Crem.BaseMachine (InitialState (..))
import "crem" Crem.Decider
import "crem" Crem.Example.Uno
import Crem.StateMachine (StateMachineT (..), run)
import Data.Functor.Identity (Identity)
import "hspec" Test.Hspec (Spec, describe, it, shouldBe)
spec :: Spec

4
spec/Crem/Render/RenderFlowSpec.hs
View File

@ -2,13 +2,13 @@
module Crem.Render.RenderFlowSpec where
import "base" Data.Functor.Identity (Identity)
import "base" Data.List (singleton)
import "crem" Crem.Example.LockDoor (SLockDoorVertex (..), lockDoorMachine)
import "crem" Crem.Example.RiskManager.Application (riskApplication)
import "crem" Crem.Render.Render (MachineLabel (..), Mermaid (..), baseMachineAsGraph, renderLabelledGraph)
import "crem" Crem.Render.RenderFlow (TreeMetadata (..), renderFlow)
import "crem" Crem.StateMachine (StateMachineT (..), stateless)
import "base" Data.Functor.Identity (Identity)
import "base" Data.List (singleton)
import "hspec" Test.Hspec
spec :: Spec

8
spec/Crem/Render/RenderSpec.hs
View File

@ -5,13 +5,13 @@ module Crem.Render.RenderSpec where
import Crem.Example.LockDoor
import Crem.Example.OneState
import Crem.Example.Switch
import Crem.Topology (trivialTopology)
import Data.Functor.Identity
import Data.Singletons.Base.TH
import "base" Data.List (intersperse)
import "crem" Crem.Graph
import "crem" Crem.Render.Render
import "crem" Crem.StateMachine
import Crem.Topology (trivialTopology)
import Data.Functor.Identity
import "base" Data.List (intersperse)
import Data.Singletons.Base.TH
import "hspec" Test.Hspec (Spec, describe, it, shouldBe)
spec :: Spec

2
spec/Crem/RiskManagerSpec.hs
View File

@ -5,8 +5,8 @@ module Crem.RiskManagerSpec where
import Crem.Example.RiskManager.Application
import Crem.Example.RiskManager.Domain
import Crem.Example.RiskManager.Projection (ReceivedData (..))
import "crem" Crem.StateMachine (run, runMultiple)
import Crem.StateMachineSpec (shouldOutput)
import "crem" Crem.StateMachine (run, runMultiple)
import "hspec" Test.Hspec (Spec, describe, it)
myUserData :: UserData

6
spec/Crem/StateMachineSpec.hs
View File

@ -1,16 +1,16 @@
module Crem.StateMachineSpec where
import "base" Control.Category qualified
import Crem.Example.BooleanStateMachine (booleanStateMachine)
import Crem.Example.LockDoor
import Crem.Example.PlusOneUpToFour (plus1UpTo4)
import Crem.Example.Switch (switchMachine)
import "crem" Crem.StateMachine
import "base" Control.Category qualified
import "base" Data.Functor.Identity (Identity (..))
import "base" Data.List (singleton)
import "crem" Crem.StateMachine
import "hspec" Test.Hspec (Expectation, Spec, describe, it, shouldBe)
import "profunctors" Data.Profunctor (rmap)
import "singletons-base" Data.Singletons.Base.TH
import "hspec" Test.Hspec (Expectation, Spec, describe, it, shouldBe)
shouldOutput :: (Eq b, Show b) => Identity (b, c) -> b -> Expectation
shouldOutput (Identity (output, _)) expectedOutput = output `shouldBe` expectedOutput

2
src/Crem/Render/Render.hs
View File

@ -13,8 +13,8 @@ import Crem.Render.RenderableVertices
import Crem.StateMachine
import Crem.Topology
import "base" Data.List (intersperse)
import "singletons-base" Data.Singletons (Demote, SingI, SingKind, demote)
import "base" Data.String (IsString)
import "singletons-base" Data.Singletons (Demote, SingI, SingKind, demote)
import "text" Data.Text (Text, null, pack)
import Prelude hiding (null)

4
src/Crem/StateMachine.hs
View File

@ -6,11 +6,11 @@
-- `StateMachineT` type, which allows us to create composable state machines.
module Crem.StateMachine where
import "base" Control.Arrow (Arrow (arr, first), ArrowChoice (left))
import "base" Control.Category (Category (..))
import Crem.BaseMachine as BaseMachine
import Crem.Render.RenderableVertices (RenderableVertices)
import Crem.Topology (AllowAllTopology, Topology)
import "base" Control.Arrow (Arrow (arr, first), ArrowChoice (left))
import "base" Control.Category (Category (..))
import "base" Data.Bifunctor (Bifunctor (second), bimap)
import "base" Data.Foldable (foldlM)
import "base" Data.Kind (Type)