Fix incorrect unused class warning
commitf14015ee5cf76762feeb679d863a486cdf2706ed
authorGary Burgess <gary.burgess@gmail.com>
dateSat 12 Dec 2015, 21:05 (11 years ago)
parentdd66f58
src/Language/PureScript/Linter/Imports.hs+1−1
@@ -159,7 +159,7 @@ runDeclRef :: DeclarationRef -> Maybe String
159159runDeclRef (PositionedDeclarationRef _ _ ref) = runDeclRef ref
160160runDeclRef (ValueRef ident) = Just $ showIdent ident
161161runDeclRef (TypeRef pn _) = Just $ runProperName pn
162−runDeclRef (TypeClassRef pn) = Just $ "class " ++ runProperName pn
162+runDeclRef (TypeClassRef pn) = Just $ runProperName pn
163163runDeclRef _ = Nothing
164164
165165getTypeRef :: DeclarationRef -> Maybe (ProperName, Maybe [ProperName])