ghc-exactprint-1.9.0.0: tests/examples/pre-ghc910/T10438.hs

{-# LANGUAGE PartialTypeSignatures #-}
{-# LANGUAGE TypeFamilies #-}
module T10438 where

foo f = g
  where g r = x
          where x :: _
                x = r