Skip to content

haskell-gargantext
haskell-gargantext
Commit ca9e6e9a authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[STYLE] Better use of Lenses.

parent 55bf4c4d
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
src/Gargantext/Prelude/Utils.hs
View file @ ca9e6e9a
...@@ -57,7 +57,7 @@ class ReadFile a where ...@@ -57,7 +57,7 @@ class ReadFile a where
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
saveFile a = do saveFile a = do
dataPath <- _fileFolder . (view settings) <$> ask dataPath <- view (settings . fileFolder) <$> ask
(fp,fn) <- liftIO $ (toPath 3) . hash . Text.pack . show <$> newStdGen (fp,fn) <- liftIO $ (toPath 3) . hash . Text.pack . show <$> newStdGen
let foldPath = dataPath <> "/" <> fp let foldPath = dataPath <> "/" <> fp
...@@ -72,5 +72,5 @@ saveFile a = do ...@@ -72,5 +72,5 @@ saveFile a = do
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
dataPath <- _fileFolder . (view settings) <$> ask dataPath <- view (settings . fileFolder) <$> ask
liftIO $ readFile' $ dataPath <> "/" <> fp liftIO $ readFile' $ dataPath <> "/" <> fp
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