purescript-0.7.2.0: examples/failing/Superclasses1.purs

-- @shouldFailWith NoInstanceFound
module Main where

import Prelude

class Su a where
  su :: a -> a

class (Su a) <= Cl a where
  cl :: a -> a -> a

instance clNumber :: Cl Number where
  cl n m = n + m