[GHC] #14901: dsrun014 fails with most ways

[GHC]

#14901: dsrun014 fails with most ways
-------------------------------------+-------------------------------------
        Reporter:  alpmestan         |                Owner:  (none)
            Type:  bug               |               Status:  new
        Priority:  normal            |            Milestone:
       Component:  Compiler          |              Version:  8.5
      Resolution:                    |             Keywords:
Operating System:  Unknown/Multiple  |         Architecture:
 Type of failure:  Incorrect result  |  Unknown/Multiple
  at runtime                         |            Test Case:  dsrun014
      Blocked By:                    |             Blocking:
 Related Tickets:                    |  Differential Rev(s):
       Wiki Page:                    |
-------------------------------------+-------------------------------------

Comment (by alpmestan):

 I tried to extend that code to do the same thing for `pseq` but it looks
 like that did not quite work (see
 [https://gist.github.com/alpmestan/2ed121470f5ed3b4e27b79a22111ab27 this
 gist]). I'm probably missing something obvious here though.

-- 
Ticket URL: <http://ghc.haskell.org/trac/ghc/ticket/14901#comment:5>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler