Filter whitespaces from bech32 stdin

IntersectMBO · Nov 4, 2021 · 791c25b · 791c25b
1 parent 8044239
commit 791c25b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/bech32/app/Main.hs b/bech32/app/Main.hs
@@ -144,7 +144,7 @@ run :: Cmd -> IO ()
 run cmd = case cmd of
     VersionCmd -> putStrLn $ showVersion version
     RunCmd {prefix} -> do
-        source <- T.decodeUtf8 . B8.filter (/= '\n') <$> B8.hGetContents stdin
+        source <- T.strip . T.decodeUtf8 <$> B8.hGetContents stdin
         case prefix of
             Nothing  -> runDecode source
             Just hrp -> runEncode hrp source