Fix error handling

2020-01-31 18:23:01 +01:00 · 2020-01-31 18:23:01 +01:00 · fadc0f84bf
commit fadc0f84bf
parent 6ab8d721b4
1 changed files with 4 additions and 3 deletions
--- a/app/Main.hs
+++ b/app/Main.hs
@ -124,7 +124,8 @@ main = do
    run e = do
      settings <-
        exceptT
-            ( const die
+            (\_ ->
+              die
                . color Red
                $ "Could not get settings, make sure to run 'ghup config' first"
            )