[GHC] #10540: Showing type synonym isn't exported by Hoopl

[GHC]

#10540: Showing type synonym isn't exported by Hoopl
-------------------------------------+-------------------------------------
              Reporter:  nimnul      |             Owner:
                  Type:  bug         |            Status:  new
              Priority:  normal      |         Milestone:
             Component:              |           Version:  7.10.1
  libraries/hoopl                    |  Operating System:  Unknown/Multiple
              Keywords:              |   Type of failure:  Incorrect
          Architecture:              |  warning at compile-time
  Unknown/Multiple                   |        Blocked By:
             Test Case:              |   Related Tickets:
              Blocking:              |
Differential Revisions:              |
-------------------------------------+-------------------------------------
 Hoopl exports

 {{{#!hs
 showGraph :: Showing n -> Graph n e x -> String
 }}}

 But it doesn't export `Showing`. This doesn't make sense, as it's a user-
 supplied function. So to know what I should pass to `showGraph` I can only
 look at the source. `:i Showing` doesn't work.

 Below is a patch to export the innocent type synonym:

 {{{#!patch
 diff --git a/src/Compiler/Hoopl/Show.hs b/src/Compiler/Hoopl/Show.hs
 index 8a8b35f..66172b0 100644
 --- a/src/Compiler/Hoopl/Show.hs
 +++ b/src/Compiler/Hoopl/Show.hs
 @@ -4,7 +4,7 @@
  #endif

  module Compiler.Hoopl.Show
 -  ( showGraph, showFactBase
 +  ( showGraph, showFactBase, Showing
    )
  where
 }}}

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