Skip to content

haskell-gargantext
haskell-gargantext
Commit d05e9762 authored by mzheng's avatar mzheng
Browse files
Options

fixed the name of the file

parent d752d875
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 3 deletions
src/Gargantext/API/Node/Phylo/Export.hs
View file @ d05e9762
...@@ -41,7 +41,7 @@ getTest :: NodeId ...@@ -41,7 +41,7 @@ getTest :: NodeId
-> PhyloId -> PhyloId
-> GargNoServer (Headers '[Header "Content-Disposition" T.Text] User) -> GargNoServer (Headers '[Header "Content-Disposition" T.Text] User)
getTest _ pId = pure $ addHeader (T.concat [ "attachment; filename=" getTest _ pId = pure $ addHeader (T.concat [ "attachment; filename="
, "GarganText_DocsList-" , "GarganText_Phylo-"
, T.pack (show pId) , T.pack (show pId)
, ".json" ]) , ".json" ])
User { User {
...@@ -55,9 +55,9 @@ getTest2 :: NodeId ...@@ -55,9 +55,9 @@ getTest2 :: NodeId
-> PhyloId -> PhyloId
-> GargNoServer (Headers '[Header "Content-Disposition" T.Text] User) -> GargNoServer (Headers '[Header "Content-Disposition" T.Text] User)
getTest2 _ pId = pure $ addHeader (T.concat [ "attachment; filename=" getTest2 _ pId = pure $ addHeader (T.concat [ "attachment; filename="
, "GarganText_DocsList-" , "GarganText_Phylo-"
, T.pack (show pId) , T.pack (show pId)
, ".json" ]) , ".dot" ])
User { User {
_us_name = "test2" _us_name = "test2"
, _us_age = 82 , _us_age = 82
......
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