From f2ccea7f295a4cedb201aa70665eebc3fa1ddeb4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Gr=C3=B6ber?= <dxld@darkboxed.org>
Date: Wed, 13 Aug 2014 18:26:30 +0200
Subject: [PATCH] Fix error presentation

---
 src/GHCMod.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/GHCMod.hs b/src/GHCMod.hs
index 83b9165..0e75f2c 100644
--- a/src/GHCMod.hs
+++ b/src/GHCMod.hs
@@ -138,7 +138,8 @@ main = flip E.catches handlers $ do
       cmd       -> E.throw (NoSuchCommand cmd)
     case res of
       Right s -> putStr s
-      Left e -> error $ show e
+      Left (GMENoMsg) -> hPutStrLn stderr "Unknown error"
+      Left (GMEString msg) -> hPutStrLn stderr msg
   where
     handlers = [Handler (handleThenExit handler1), Handler (handleThenExit handler2)]
     handleThenExit handler e = handler e >> exitFailure