Merge pull request #143 from josephcsible/remove-fail

Remove fail from default_typeclass test

Author: simonmar

tests/default_typeclass.x

@@ -285,7 +285,6 @@ instance (Monad m) => Monad (StateT s m) where
     m >>= k  = StateT $ \s -> do
         (a, s') <- runStateT m s
         runStateT (k a) s'
-    fail str = StateT $ \_ -> fail str
 
 -- | Fetch the current value of the state within the monad.
 get' :: (Monad m) => StateT s m s