Minikey to WIF converter

minikey-wif.hs

#!/usr/bin/env stack
{- stack
   --resolver lts-16.28
   --nix 
   --nix-packages "secp256k1 pkg-config zlib"
   script
   --package haskoin-core
   --package bytestring
   --package text
   --extra-dep haskoin-core-0.18.0
   --extra-dep secp256k1-haskell-0.5.0
-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE LambdaCase #-}
import Haskoin
import qualified Data.ByteString as B
import qualified Data.ByteString.Char8 as B8
import qualified Data.Text.IO as T
import Data.Maybe
main :: IO ()
main = do
  chars <- B.getLine
  let Just key = fromMiniKey chars
  T.putStrLn (toWif btc key)
  T.putStrLn (fromJust (addrToText btc (pubKeyAddr (derivePubKeyI key))))