Commit e64e327a authored by Alexandre Delanoë's avatar Alexandre Delanoë

[CLEAN] Unused code.

parent 5d64b06f
...@@ -53,9 +53,6 @@ class SaveFile a where ...@@ -53,9 +53,6 @@ class SaveFile a where
class ReadFile a where class ReadFile a where
readFile' :: FilePath -> IO a readFile' :: FilePath -> IO a
-- | Empreinte is a uniq sequence of Text to identify the Type
-- we want to save
type Empreinte = Text
saveFile :: (MonadReader env m, MonadIO m, HasSettings env, SaveFile a) saveFile :: (MonadReader env m, MonadIO m, HasSettings env, SaveFile a)
=> a -> m FilePath => a -> m FilePath
...@@ -71,6 +68,7 @@ saveFile a = do ...@@ -71,6 +68,7 @@ saveFile a = do
pure filePath pure filePath
readFile :: (MonadReader env m, MonadIO m, HasSettings env, ReadFile a) readFile :: (MonadReader env m, MonadIO m, HasSettings env, ReadFile a)
=> FilePath -> m a => FilePath -> m a
readFile fp = do readFile fp = do
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment