@@ -74,6 +74,10 @@ data Result a = Error String
74 | Success a
74 | Success a
75 deriving (Eq, Show, Typeable)
75 deriving (Eq, Show, Typeable)
77+instance (NFData a) => NFData (Result a) where
78+ rnf (Success a) = rnf a
79+ rnf (Error err) = rnf err
77instance Functor Result where
81instance Functor Result where
78 fmap f (Success a) = Success (f a)
82 fmap f (Success a) = Success (f a)
79 fmap _ (Error err) = Error err
83 fmap _ (Error err) = Error err