module Main (main) where

import qualified Data.Binary                as Binary
import qualified Data.ByteString.Lazy       as LBS
import qualified Data.ByteString.Lazy.Char8 as LBS8
import           Network.Tox.SaveData       (SaveData)
import           Text.Groom                 (groom)
import           Text.Read                  (readMaybe)


parse :: LBS.ByteString -> LBS.ByteString
parse str = maybe
    (LBS8.pack . (++ "\n") . groom $ (Binary.decode str :: SaveData))
    Binary.encode (readMaybe $ LBS8.unpack str :: Maybe SaveData)


main :: IO ()
main = LBS.getContents >>= LBS.putStr . parse