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,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