Làm cách nào để tôi đặtStrLn một Data.ByteString.Internal.ByteString?

Question

Tôi đang học haskell và quyết định thử viết một số chương trình thử nghiệm nhỏ để sử dụng mã Haskell và sử dụng các mô-đun. Hiện tại tôi đang cố gắng sử dụng đối số đầu tiên để tạo một mật khẩu băm bằng cách sử dụng Cypto.PasswordStore. Để kiểm tra chương trình của tôi, tôi đang cố tạo băm từ đối số đầu tiên và sau đó in băm vào màn hình.

import Crypto.PasswordStore 
import System.Environment 

main = do 
    args <- getArgs 
    putStrLn (makePassword (head args) 12) 

Tôi nhận được lỗi sau:

testmakePassword.hs:8:19: 
    Couldn't match expected type `String' 
      with actual type `IO Data.ByteString.Internal.ByteString' 
    In the return type of a call of `makePassword' 
    In the first argument of `putStrLn', namely 
     `(makePassword (head args) 12)' 
    In a stmt of a 'do' block: putStrLn (makePassword (head args) 12) 

Tôi đã sử dụng các liên kết sau đây là tài liệu tham khảo nhưng tôi bây giờ chỉ cần thử nghiệm-erroring vô ích. http://hackage.haskell.org/packages/archive/bytestring/0.9.0.4/doc/html/Data-ByteString-Internal.html http://hackage.haskell.org/packages/archive/pwstore-purehaskell/2.1/doc/html/Crypto-PasswordStore.html

Answer 1

Bạn chưa nhập ByteString, vì vậy, nó đang cố gắng sử dụng phiên bản String của putStrLn. Tôi đã cung cấp toBS cho chuyển đổi String->ByteString.

Hãy thử

import Crypto.PasswordStore 
import System.Environment 
import qualified Data.ByteString.Char8 as B 

toBS = B.pack 

main = do 
    args <- getArgs 
    makePassword (toBS (head args)) 12 >>= B.putStrLn 

Answer 2

Bạn cần phải làm hai việc khác nhau. Đầu tiên, makePassword là trong IO, vì vậy bạn cần phải kết buộc kết quả với tên và sau đó chuyển tên cho hàm IO. Thứ hai, bạn cần phải nhập khẩu chức năng IO từ Data.ByteString

import Crypto.PasswordStore 
import System.Environment 
import qualified Data.ByteString as B 

main = do 
    args <- getArgs 
    pwd <- makePassword (B.pack $ head args) 12 
    B.putStrLn pwd 

Hoặc, nếu bạn sẽ không được sử dụng kết quả mật khẩu bất cứ nơi nào khác, bạn có thể sử dụng ràng buộc để kết nối hai chức năng trực tiếp:

main = do 
    args <- getArgs 
    B.putStrLn =<< makePassword (B.pack $ head args) 12