@@ -74,6 +74,10 @@ data Result a = Error String
7474 | Success a
7575 deriving (Eq, Show, Typeable)
7676
77+instance (NFData a) => NFData (Result a) where
78+ rnf (Success a) = rnf a
79+ rnf (Error err) = rnf err
80+
7781instance Functor Result where
7882 fmap f (Success a) = Success (f a)
7983 fmap _ (Error err) = Error err