haskell - How to optimise a nested pattern match with multiple repeated cases? -

कृपया इस कोड पर विचार करें:

  केस एक्शन 1 राइट ए - & gt; एक वाम (विफलता 1 ए) - & gt; एक वाम (विफलता 2 ए) - & gt; केस एक्शन 2 ए राइट ए - & gt; एक _ - & gt; त्रुटि "अप्रत्याशित विफलता" _ - & gt; त्रुटि "अनपेक्षित विफलता"   
 आप देख सकते हैं कि मुझे दो बार दोबारा दोहराएं:  right  और  त्रुटि  मामलों के साथ।  
 मैं इसे कैसे अनुकूलित कर सकता हूं? क्या यह संभव है?   
 
 
 मैंने त्रुटि को  केस < / कोड> भाग:  
  सेमेरे (त्रुटि "अप्रत्याशित विफलता") $ या तो / या तो (const कुछ भी नहीं) या तो ठीक है - ठीक एक - & gt; सिर्फ एक वाम (विफलता 1 ए) - & gt; सिर्फ एक वाम (विफलता 2 ए) - & gt; या तो तोमेय (एक्शन 2 ए) _ - & gt; कुछ भी नहीं