diff options
| author |  Joey Hess <joey@kitenet.net> | 2010-10-13 16:21:50 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2010-10-13 16:21:50 -0400 |
| commit | f87c5ed9496f50646d9f5e8be540f8bc059db242 (patch) | |
| tree | 08c5bfede3fb07573a6859b576a45a3ac84d3a1b /git-annex.hs | |
| parent | e28ff5bdaf7ce56c0c928904ff883c1e2cd093de (diff) | |
copying almost working
Diffstat (limited to 'git-annex.hs')
| -rw-r--r-- | git-annex.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/git-annex.hs b/git-annex.hs index 7bcd4de22..7785e4f2d 100644 --- a/git-annex.hs +++ b/git-annex.hs @@ -32,6 +32,5 @@ tryRun errnum oknum (a:as) = do {- Exception pretty-printing. -} showErr :: SomeException -> IO () showErr e = do - let err = show e - hPutStrLn stderr $ "git-annex: " ++ err + hPutStrLn stderr $ "git-annex: " ++ (show e) return () |