Overlap9.hs 155 Bytes
Newer Older
1 2 3 4
{-# LANGUAGE TypeFamilies #-}

module Overlap9 where

5
type family F a where
6 7 8 9 10 11 12 13
  F Int = Bool
  F a   = Int

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