[GHC] #11125: Typechecker can't infer StM m Bool ~ Bool from StM m a ~ a

[GHC]

#11125: Typechecker can't infer StM m Bool ~ Bool from StM m a ~ a
-------------------------------------+-------------------------------------
        Reporter:  nikomi            |                Owner:
            Type:  bug               |               Status:  new
        Priority:  normal            |            Milestone:
       Component:  Compiler (Type    |              Version:  7.10.2
  checker)                           |
      Resolution:                    |             Keywords:
Operating System:  Unknown/Multiple  |         Architecture:
                                     |  Unknown/Multiple
 Type of failure:  None/Unknown      |            Test Case:
      Blocked By:                    |             Blocking:
 Related Tickets:                    |  Differential Rev(s):
       Wiki Page:                    |
-------------------------------------+-------------------------------------

Comment (by hvr):

 Btw, it may be useful to know the definition of the associated type `StM`:

 {{{#!hs
 class MonadBase b m => MonadBaseControl b m | m -> b where
     type StM m a :: *
     liftBaseWith :: (RunInBase m b -> b a) -> m a
     restoreM :: StM m a -> m a


 instance MonadBaseControl IO IO where
     type StM IO a = a
     liftBaseWith f = f id
     restoreM = return

 instance MonadBaseControl STM STM where
     type StM STM a = a
     liftBaseWith f = f id
     restoreM = return

 }}}

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