Skip to content

H
haskell-gargantext
Commit 9eadc63a authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[DOC] toPath

parent 7d5b1cfc
Hide whitespace changes
Inline Side-by-side
Showing with 8 additions and 0 deletions
src/Gargantext/Prelude/Utils.hs
View file @ 9eadc63a
...@@ -41,6 +41,14 @@ data NodeToHash = NodeToHash { nodeType :: NodeType ...@@ -41,6 +41,14 @@ data NodeToHash = NodeToHash { nodeType :: NodeType
type FolderPath = FilePath type FolderPath = FilePath
type FileName = FilePath type FileName = FilePath
-- | toPath example of use:
-- toPath 2 "gargantexthello"
-- ("ga/rg","antexthello")
--
-- toPath 3 "gargantexthello"
-- ("gar/gan","texthello")
toPath :: Int -> Text -> (FolderPath,FileName) toPath :: Int -> Text -> (FolderPath,FileName)
toPath n x = (Text.unpack $ Text.intercalate "/" [x1,x2], Text.unpack xs) toPath n x = (Text.unpack $ Text.intercalate "/" [x1,x2], Text.unpack xs)
where where
......
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