path: root/testsuite/tests/indexed-types/should_fail/Overlap9.hs

{-# LANGUAGE TypeFamilies #-}

module Overlap9 where

type family F a where
  F Int = Bool
  F a   = Int

g :: Show a => a -> F a
g x = length (show x)