diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-11-07 23:21:22 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-11-08 00:17:54 -0400 |
| commit | b11a63a860e8446cf3a4b35a5d8ef76329d5135c (patch) | |
| tree | c8ae0c94d6473a3ccc7b15bdbc72d5b5c6ae96b3 /git-annex-shell.hs | |
| parent | fdf988be6d2b3bb931a9eb3dcf3fbb83b1fb8c17 (diff) | |
clean up read/show abuse
Avoid ever using read to parse a non-haskell formatted input string.
show :: Key is arguably still show abuse, but displaying Keys as filenames
is just too useful to give up.
Diffstat (limited to 'git-annex-shell.hs')
| -rw-r--r-- | git-annex-shell.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/git-annex-shell.hs b/git-annex-shell.hs index de3160953..12cc65e4d 100644 --- a/git-annex-shell.hs +++ b/git-annex-shell.hs @@ -45,9 +45,9 @@ options = commonOptions ++ where check expected = do u <- getUUID - when (u /= read expected) $ error $ + when (u /= toUUID expected) $ error $ "expected repository UUID " ++ expected - ++ " but found UUID " ++ show u + ++ " but found UUID " ++ fromUUID u header :: String header = "Usage: git-annex-shell [-c] command [parameters ...] [option ..]" |