19 lines
455 B
Haskell
19 lines
455 B
Haskell
|
module Encoding.QuotedPrintable
|
||
|
|
( encqp
|
||
|
|
, decqp
|
||
|
|
) where
|
||
|
|
|
||
|
|
import qualified Codec.Binary.QuotedPrintable as QP
|
||
|
|
import Data.ByteString.UTF8 as BSU -- from utf8-string
|
||
|
|
import qualified Data.ByteString.Char8 as C
|
||
|
|
|
||
|
|
decqp :: String -> String
|
||
|
|
decqp input =
|
||
|
|
case QP.decode (BSU.fromString input) of
|
||
|
|
Right decoded -> C.unpack decoded
|
||
|
|
Left _ -> "Error decoding QP.\n"
|
||
|
|
|
||
|
|
encqp :: String -> String
|
||
|
|
encqp = C.unpack . QP.encode . BSU.fromString
|
||
|
|
|