Consolidated a little code for you

My first haskell commit!