From fadc0f84bfe13beb4fec86f5a366f40f61f7046c Mon Sep 17 00:00:00 2001 From: Julian Ospald Date: Fri, 31 Jan 2020 18:23:01 +0100 Subject: [PATCH] Fix error handling --- app/Main.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/app/Main.hs b/app/Main.hs index 30bed15..ae7e721 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -124,9 +124,10 @@ main = do run e = do settings <- exceptT - ( const die - . color Red - $ "Could not get settings, make sure to run 'ghup config' first" + (\_ -> + die + . color Red + $ "Could not get settings, make sure to run 'ghup config' first" ) pure $ getSettings