From 7766a52277f22491c0da390c4e8ef38b99a17fe2 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Sun, 22 May 2011 20:19:55 +0200
Subject: Writable instance for ()

---
 src/Hakyll/Core/Writable.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/Hakyll/Core/Writable.hs b/src/Hakyll/Core/Writable.hs
index 280258d..b7a4116 100644
--- a/src/Hakyll/Core/Writable.hs
+++ b/src/Hakyll/Core/Writable.hs
@@ -20,6 +20,9 @@ class Writable a where
     -- | Save an item to the given filepath
     write :: FilePath -> a -> IO ()
 
+instance Writable () where
+    write _ _ = return ()
+
 instance Writable [Char] where
     write = writeFile
 
-- 
cgit v1.2.3