INLINEABLE on class method triggers the error for INLINE

class Foo f where
    foo :: f
{-# INLINEABLE foo #-}

causes the following error

    The INLINE pragma for `foo' lacks an accompanying binding
      (You cannot give a INLINE pragma for a record selector or class method)

Which incorrectly refers to INLINE and not the used INLINEABLE.

Trac metadata

To upload designs, you'll need to enable LFS and have an admin enable hashed storage. More information