diff options
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/Main.hs b/src/Main.hs index 5072a64..f4060b9 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -9,10 +9,8 @@ module Main where import Data.Aeson (encode) import Data.Aeson.Encode.Pretty (encodePretty) import qualified Data.ByteString.Lazy as LB -import qualified Data.ByteString.Lazy.Encoding as LB +import qualified Data.ByteString.Char8 as C8 import Data.Maybe (fromMaybe) -import Data.Text.Lazy as T -import System.IO (utf8) import WithCli import Util (printPretty) @@ -54,4 +52,4 @@ run options = do -- | haskell's many string types are FUN … printLB :: LB.ByteString -> IO () -printLB = putStrLn . T.unpack . LB.decode utf8 +printLB a = putStrLn $ C8.unpack $ LB.toStrict a |