From d980dd48ba958caf74c351c8e4797276efc724e1 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Sat, 27 Feb 2010 17:24:28 +0100 Subject: Minor tweaks on site, made PagePath a newtype. --- src/Text/Hakyll/Renderables.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/Text/Hakyll/Renderables.hs b/src/Text/Hakyll/Renderables.hs index 0ccef5f..b16b2bd 100644 --- a/src/Text/Hakyll/Renderables.hs +++ b/src/Text/Hakyll/Renderables.hs @@ -93,8 +93,8 @@ instance Renderable CustomPage where -- | PagePath is a class that wraps a FilePath. This is used to render Pages -- without reading them first through use of caching. -data PagePath = PagePath FilePath - deriving (Ord, Eq, Read, Show) +newtype PagePath = PagePath FilePath + deriving (Ord, Eq, Read, Show) -- | Create a PagePath from a FilePath. createPagePath :: FilePath -> PagePath -- cgit v1.2.3