@@ -93,8 +93,8 @@ instance Renderable CustomPage where
94-- | PagePath is a class that wraps a FilePath. This is used to render Pages
94-- | PagePath is a class that wraps a FilePath. This is used to render Pages
95-- without reading them first through use of caching.
95-- without reading them first through use of caching.
96−data PagePath = PagePath FilePath
96+newtype PagePath = PagePath FilePath
97− deriving (Ord, Eq, Read, Show)
97+ deriving (Ord, Eq, Read, Show)
99-- | Create a PagePath from a FilePath.
99-- | Create a PagePath from a FilePath.
100createPagePath :: FilePath -> PagePath
100createPagePath :: FilePath -> PagePath