ghc/compiler/tests/deSugar/ds006.stderr

   1 Desugared:
   2 Test.v :: for all d. <Num d> -> d
   3 Test.v =
   4     /\ t78 -> \ dict.79 ->
   5         let dict.77 = dict.79
   6         in
   7           let
   8             {- CoRec -}
   9             v.75 =
  10                 let
  11                   fail.81 =
  12                       (error t78)
  13                           "\"ds006.hs\", line 6: pattern-matching failure [function binding]\n"S
  14                 in
  15                   (+ t78)
  16                       dict.77 v.75 ((fromInteger t78) dict.79 (MkInteger! 1##))
  17             {- end CoRec -}
  18           in  v.75
  19