Jak mogę putStrLn a Data.ByteString.Internal.ByteString?

Question

Uczę się haskell i postanowiłem spróbować napisać kilka małych programów testowych, aby uzyskać dostęp do kodu Haskell i modułów. Obecnie próbuję użyć pierwszego argumentu do utworzenia skrótu hasła za pomocą Cypto.PasswordStore. Aby przetestować mój program, próbuję utworzyć skrót z pierwszego argumentu, a następnie wydrukować skrót do ekranu.

import Crypto.PasswordStore 
import System.Environment 

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

Dostaję następujący błąd:

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) 

Używam następujących linków jako odniesienia, ale teraz jestem po prostu metodą prób erroring bezskutecznie. 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

Nie importowane ByteString, więc próbuje użyć wersji Ciąg putStrLn. Podaję toBS dla konwersji String->ByteString.

Spróbuj

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

trzeba zrobić dwie rzeczy inaczej. Po pierwsze, makePassword jest w IO, więc musisz powiązać wynik z nazwą, a następnie przekazać nazwę do funkcji IO. Po drugie, trzeba importować funkcje IO z 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 

Lub, jeśli nie będzie używany wynik hasło nigdzie indziej, można użyć wiążą się bezpośrednio połączyć dwie funkcje:

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