Remove warnings

src/Internal/Values/StateManager.elm

@@ -61,11 +61,11 @@ append sm2 sm1 =
     List.foldl insert sm1 (values sm2)
 
 
-{-| Remove any floating empty Mashdicts from ALL keys in the dictionary.
--}
-cleanAll : StateManager -> StateManager
-cleanAll ((StateManager manager) as sm) =
-    List.foldl cleanKey sm (Dict.keys manager)
+-- {-| Remove any floating empty Mashdicts from ALL keys in the dictionary.
+-- -}
+-- cleanAll : StateManager -> StateManager
+-- cleanAll ((StateManager manager) as sm) =
+--     List.foldl cleanKey sm (Dict.keys manager)
 
 
 {-| To keep the StateManager as simple as possible, you can keep the dictionary

tests/Test/Values/StateManager.elm

@@ -2,7 +2,6 @@ module Test.Values.StateManager exposing (..)
 
 import Expect
 import Fuzz exposing (Fuzzer)
-import Internal.Values.Event as Event
 import Internal.Values.StateManager as StateManager exposing (StateManager)
 import Json.Decode as D
 import Json.Encode as E