@@ -20,6 +20,9 @@ class Writable a where
20 -- | Save an item to the given filepath
20 -- | Save an item to the given filepath
21 write :: FilePath -> a -> IO ()
21 write :: FilePath -> a -> IO ()
23+instance Writable () where
24+ write _ _ = return ()
23instance Writable [Char] where
26instance Writable [Char] where
24 write = writeFile
27 write = writeFile