Print startup errors

kadena-community · Nov 28, 2019 · 67d6800 · 67d6800
1 parent 3a68862
commit 67d6800
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/bag-of-holding.cabal b/bag-of-holding.cabal
@@ -23,10 +23,11 @@ common commons
   ghc-options:
     -Wall -Wcompat -Wpartial-fields -Wincomplete-record-updates
     -Wincomplete-uni-patterns -Widentities -funclutter-valid-hole-fits
+    -fmax-relevant-binds=0
 
   build-depends:
     , aeson           ^>=1.4
-    , base            >=4.12  && <5
+    , base            >=4.12 && <5
     , chainweb        ^>=1.0
     , errors          ^>=2.3
     , generic-lens    >=1.1  && <1.3

diff --git a/exec/BOH.hs b/exec/BOH.hs
@@ -104,7 +104,7 @@ env (Args v fp acc url) = runExceptT $ do
 
 main :: IO ()
 main = execParser opts >>= env >>= \case
-  Left _ -> pure () -- TODO Say something.
+  Left err -> printf "%s\n" err
   Right e -> do
     initialVty <- buildVty
     race_ (W.run 9467 $ signApp (chanOf e) (respOf e))