@@ -11,6 +11,8 @@ import qualified Data.ByteString as SB
11import Text.Blaze (Html)
11import Text.Blaze (Html)
12import Text.Blaze.Renderer.String (renderHtml)
12import Text.Blaze.Renderer.String (renderHtml)
14+import Hakyll.Core.Identifier
14-- | Describes an item that can be saved to the disk
16-- | Describes an item that can be saved to the disk
16class Writable a where
18class Writable a where
@@ -28,3 +30,6 @@ instance Writable [Word8] where
29instance Writable Html where
31instance Writable Html where
30 write p html = write p $ renderHtml html
32 write p html = write p $ renderHtml html
34+instance Writable Identifier where
35+ write p i = write p $ show i