diff options
author | Joey Hess <joey@kitenet.net> | 2012-11-14 13:50:20 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-11-14 13:50:20 -0400 |
commit | db1f42f93da8749282e58194eb57dc3e7cb03484 (patch) | |
tree | e1ad7635d79192066d58bb0d769415d1fcf2648e /doc | |
parent | 4d0f280c01f46067904c28dd0e39e8e2346e5cf1 (diff) |
fix newline stripping
Diffstat (limited to 'doc')
-rw-r--r-- | doc/bugs/using_old_remote_format_generates_irritating_output/comment_4_a81f06191bc03a7aad5929af99f0634e._comment | 5 |
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> """]] |