Source

configurator / Data / Configurator / Types / Internal.hs

Diff from to

File Data/Configurator/Types/Internal.hs

 data Worth a = Required { worth :: a }
              | Optional { worth :: a }
                deriving (Show, Typeable)
-                    
+
 instance IsString (Worth FilePath) where
     fromString = Required
 
     a == b = worth a == worth b
 
 instance (Hashable a) => Hashable (Worth a) where
-    hash = hash . worth
+    hashWithSalt salt v = hashWithSalt salt (worth v)
 
 -- | Global configuration data.  This is the top-level config from which
 -- 'Config' values are derived by choosing a root location.
         | otherwise           = Exact (T.pack s)
 
 instance Hashable Pattern where
-    hash (Exact n)  = hash n
-    hash (Prefix n) = hash n
+    hashWithSalt salt (Exact n)  = hashWithSalt salt n
+    hashWithSalt salt (Prefix n) = hashWithSalt salt n
 
 -- | This class represents types that can be automatically and safely
 -- converted /from/ a 'Value' /to/ a destination type.  If conversion