Merge pull request #21 from input-output-hk/rvl/ghc-8.8

Make bech32/app/Main.hs compatible with GHC 8.8
IntersectMBO · Jul 1, 2020 · dd3fc94 · dd3fc94
2 parents 7d3c9fb + 25bb8dd
commit dd3fc94
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/bech32/app/Main.hs b/bech32/app/Main.hs
@@ -148,7 +148,7 @@ run Cmd{prefix} = do
                     let fromBase58 = decodeBase58 bitcoinAlphabet . T.encodeUtf8
                     dataPartFromBytes <$> maybeToEither err (fromBase58 source)
                 Nothing ->
-                    fail "Unable to detect input encoding. Neither Base16, \
+                    Left "Unable to detect input encoding. Neither Base16, \
                          \Bech32 nor Base58."
         B8.putStrLn $ T.encodeUtf8 $ Bech32.encodeLenient hrp datapart