diff --git a/src/Internal/Values/StateManager.elm b/src/Internal/Values/StateManager.elm index 19464a2..46282aa 100644 --- a/src/Internal/Values/StateManager.elm +++ b/src/Internal/Values/StateManager.elm @@ -61,6 +61,7 @@ append sm2 sm1 = List.foldl insert sm1 (values sm2) + -- {-| Remove any floating empty Mashdicts from ALL keys in the dictionary. -- -} -- cleanAll : StateManager -> StateManager diff --git a/tests/Test/Values/Event.elm b/tests/Test/Values/Event.elm index 68dbd8a..d41abaa 100644 --- a/tests/Test/Values/Event.elm +++ b/tests/Test/Values/Event.elm @@ -19,6 +19,7 @@ fuzzer = Fuzz.string (Fuzz.maybe unsignedDataFuzzer) + {-| Fuzzer for an event with a set state key -} fuzzerState : Fuzzer Event @@ -26,10 +27,10 @@ fuzzerState = Fuzz.map2 (\event default -> { event - | stateKey = - event.stateKey - |> Maybe.withDefault default - |> Maybe.Just + | stateKey = + event.stateKey + |> Maybe.withDefault default + |> Maybe.Just } ) fuzzer diff --git a/tests/Test/Values/StateManager.elm b/tests/Test/Values/StateManager.elm index f96a0a3..ec15032 100644 --- a/tests/Test/Values/StateManager.elm +++ b/tests/Test/Values/StateManager.elm @@ -112,6 +112,7 @@ suite = |> StateManager.member event |> Expect.equal True ) + -- , fuzz2 TestEvent.fuzzerState TestEvent.fuzzerState -- "singleton has no other members" -- (\e1 e2 -> @@ -124,7 +125,8 @@ suite = -- |> StateManager.member e2 -- |> Expect.equal False -- ) - , fuzz TestEvent.fuzzerState "singleton has one value" + , fuzz TestEvent.fuzzerState + "singleton has one value" (\event -> StateManager.singleton event |> StateManager.values