Improved the compaction a bit more.

src/Hakyll/Web/CompressCss.hs

@@ -39,11 +39,10 @@ compressSeparators str
     | isPrefixOf "'" str = head str : retainConstants compressSeparators "'" (drop 1 str)
     | stripFirst = compressSeparators (drop 1 str)
     | stripSecond = compressSeparators (head str : (drop 2 str))
-    | isPrefixOf ";}" str = '}' : compressSeparators (drop 2 str)
     | otherwise = head str : compressSeparators (drop 1 str)
   where
     prefix p = isPrefixOf p str
-    stripFirst = or $ map prefix ["  ", " {", " }", ";;"]
+    stripFirst = or $ map prefix ["  ", " {", " }", ";;", ";}"]
     stripSecond = or $ map prefix ["{ ", "} ", "; "]
 
 --------------------------------------------------------------------------------

tests/Hakyll/Web/CompressCss/Tests.hs

@@ -30,6 +30,8 @@ tests = testGroup "Hakyll.Web.CompressCss.Tests" $ concat
           -- compress separators
         , "}"             @=? compressCss ";   }"
         , "{};"           @=? compressCss "  {  }  ;  "
+          -- compress whitespace even after this curly brace
+        , "}"             @=? compressCss ";   }  "
           -- but do not compress separators inside of constants
         , "\"  { } ;  \"" @=? compressCss "\"  { } ;  \""
           -- don't compress separators at the start or end of constants