@@ -11,6 +11,8 @@ import qualified Data.ByteString as SB
1111import Text.Blaze (Html)
1212import Text.Blaze.Renderer.String (renderHtml)
1313
14+import Hakyll.Core.Identifier
15+
1416-- | Describes an item that can be saved to the disk
1517--
1618class Writable a where
@@ -28,3 +30,6 @@ instance Writable [Word8] where
2830
2931instance Writable Html where
3032 write p html = write p $ renderHtml html
33+
34+instance Writable Identifier where
35+ write p i = write p $ show i