4 ms·
class Monad (MonadTutorial badAnalogy) where return badAnalogy = MonadTutorial badAnalogy (MonadTutorial badAnalogy) >>= attemptToExplain = attemptToExp
by burkaman 2y ago
class Monad (MonadTutorial badAnalogy) where
return badAnalogy = MonadTutorial badAnalogy
(MonadTutorial badAnalogy) >>= attemptToExplain = attemptToExplain badAnalogy
attemptToExplain :: Analogy -> (MonadTutorial worseAnalogy)
attemptToExplain analogy = MonadTutorial (makeItWorse analogy)
Been like 10 years since I've used Haskell so I'm not totally sure this works but it was fun.