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

[CLEAN] Unused code.

parent 5d64b06f
......@@ -53,9 +53,6 @@ class SaveFile a where
class ReadFile a where
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)
=> a -> m FilePath
......@@ -71,6 +68,7 @@ saveFile a = do
pure filePath
readFile :: (MonadReader env m, MonadIO m, HasSettings env, ReadFile a)
=> FilePath -> m a
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