From b172f3c06cf1f54dfdaca8c7f2d1d2a1dbdf15aa Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@github.com>
Date: Mon, 7 Dec 2015 12:15:58 -0500
Subject: [PATCH] Classes are prefixed with `category-`.

---
 src/Split.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Split.hs b/src/Split.hs
index 0b015fb80..1b8e1742b 100644
--- a/src/Split.hs
+++ b/src/Split.hs
@@ -175,7 +175,7 @@ zipWithMaybe f la lb = take len $ zipWith f la' lb'
     lb' = (Just <$> lb) ++ (repeat Nothing)
 
 classify :: Set.Set Category -> Maybe ClassName
-classify = foldr (const . Just) Nothing
+classify = foldr (const . Just . ("category-" ++)) Nothing
 
 actualLines :: String -> [String]
 actualLines "" = [""]