title: How to write "Show" Typeclass for data
body: <p>I have a very simple <code>data</code> and I want to use <code>Show</code> Typeclass to give it a nice output.</p>
  
  <pre><code>data Fruit = Apple | Orange Int 
  
  instance Show Fruit
           where
              show Apple    = "Hey Apple"
              show Orange a = "X number of Orange"
  </code></pre>
  
  <p>This gives the following error but I don't know how to fix it:</p>
  
  <pre><code>Equations for `show' have different numbers of arguments
  </code></pre>