summaryrefslogtreecommitdiff
path: root/doc
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-11-14 13:50:20 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-11-14 13:50:20 -0400
commitdb1f42f93da8749282e58194eb57dc3e7cb03484 (patch)
treee1ad7635d79192066d58bb0d769415d1fcf2648e /doc
parent4d0f280c01f46067904c28dd0e39e8e2346e5cf1 (diff)
fix newline stripping
Diffstat (limited to 'doc')
-rw-r--r--doc/bugs/using_old_remote_format_generates_irritating_output/comment_4_a81f06191bc03a7aad5929af99f0634e._comment5
1 files changed, 3 insertions, 2 deletions
diff --git a/doc/bugs/using_old_remote_format_generates_irritating_output/comment_4_a81f06191bc03a7aad5929af99f0634e._comment b/doc/bugs/using_old_remote_format_generates_irritating_output/comment_4_a81f06191bc03a7aad5929af99f0634e._comment
index e47a32d3e..9ea804767 100644
--- a/doc/bugs/using_old_remote_format_generates_irritating_output/comment_4_a81f06191bc03a7aad5929af99f0634e._comment
+++ b/doc/bugs/using_old_remote_format_generates_irritating_output/comment_4_a81f06191bc03a7aad5929af99f0634e._comment
@@ -13,8 +13,9 @@ There's probably a 1:1 mapping between this special md5 encoding an a regular md
<pre>
import Locations
import Types.Key
+import Utility.Misc
-main = interact $ \s -> case file2key s of
+main = interact $ \s -> case file2key $ firstLine s of
Nothing -> \"bad key\"
Just k -> hashDirMixed k ++ \" \" ++ hashDirLower k ++ \"\n\"
</pre>
@@ -22,6 +23,6 @@ main = interact $ \s -> case file2key s of
<pre>
joey@gnu:~/src/git-annex>ghc --make convert.hs
joey@gnu:~/src/git-annex>echo WORM--foo | ./ convert
-gw/Vx/ 91d/46e/
+jq/8w/ 2b1/ba3/
</pre>
"""]]