Source

statistics / Statistics / Math / RootFinding.hs

Diff from to

File Statistics/Math/RootFinding.hs

 
 import Statistics.Function.Comparison
 
+import Data.Binary (Binary)
 import Control.Applicative
 import Control.Monad       (MonadPlus(..), ap)
 import Data.Data (Data, Typeable)
             -- ^ A root was successfully found.
               deriving (Eq, Read, Show, Typeable, Data, Generic)
 
+instance (Binary a) => Binary (Root a)
+
 instance Functor Root where
     fmap _ NotBracketed = NotBracketed
     fmap _ SearchFailed = SearchFailed