20 lines
500 B
Haskell
20 lines
500 B
Haskell
|
module Encoding.UnixToUnix
|
||
|
|
( encuu
|
||
|
|
, decuu
|
||
|
|
) where
|
||
|
|
|
||
|
|
import qualified Codec.Binary.Uu as UU
|
||
|
|
import Data.ByteString.UTF8 as BSU -- from utf8-string
|
||
|
|
import qualified Data.ByteString.Char8 as C
|
||
|
|
|
||
|
|
decuu :: String -> String
|
||
|
|
-- decuu = C.unpack . U.fromRight . UU.decode . BSU.fromString
|
||
|
|
decuu input =
|
||
|
|
case UU.decode (BSU.fromString input) of
|
||
|
|
Right decoded -> C.unpack decoded
|
||
|
|
Left _ -> "Error decoding UU.\n"
|
||
|
|
|
||
|
|
encuu :: String -> String
|
||
|
|
encuu = C.unpack . UU.encode . BSU.fromString
|
||
|
|
|