Better naming scheme.

2 files changed, 5 insertions, 5 deletions

diff --git a/src/Text/Hakyll/Internal/CompressCSS.hs b/src/Text/Hakyll/Internal/CompressCss.hs
index 7d52bef..4b19984 100644
--- a/src/Text/Hakyll/Internal/CompressCSS.hs
+++ b/src/Text/Hakyll/Internal/CompressCss.hs
@@ -1,7 +1,7 @@
 -- | Module used for CSS compression. The compression is currently in a simple
 --   state, but would typically reduce the number of bytes by about 25%.
-module Text.Hakyll.Internal.CompressCSS
-    ( compressCSS
+module Text.Hakyll.Internal.CompressCss
+    ( compressCss
     ) where
 
 import Data.List (isPrefixOf)
@@ -9,8 +9,8 @@ import Data.List (isPrefixOf)
 import Text.Hakyll.Regex (substituteRegex)
 
 -- | Compress CSS to speed up your site.
-compressCSS :: String -> String
-compressCSS = compressSeparators
+compressCss :: String -> String
+compressCss = compressSeparators
             . stripComments
             . compressWhitespace
 
diff --git a/src/Text/Hakyll/Internal/Render.hs b/src/Text/Hakyll/Internal/Render.hs
index a3d2d9b..167c58a 100644
--- a/src/Text/Hakyll/Internal/Render.hs
+++ b/src/Text/Hakyll/Internal/Render.hs
@@ -65,4 +65,4 @@ writePage page = do
     liftIO $ writeFile destination $ finalSubstitute (fromString $ getBody page)
                                                      context
   where
-    url = getURL page
+    url = getUrl page