getting files via http working!
This commit is contained in:
parent
cad916d926
commit
a36c39ad0a
3 changed files with 18 additions and 5 deletions
|
@ -102,7 +102,7 @@ lookupKey state backend file = do
|
|||
k <- readFile (backendFile state backend file)
|
||||
return $ chomp k
|
||||
where
|
||||
chomp s = if (endswith s "\n")
|
||||
chomp s = if (endswith "\n" s)
|
||||
then (reverse . (drop 1) . reverse) s
|
||||
else s
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue