Encoding.hs

-- |
-- Module:      SwiftNav.SBP.Encoding
-- Copyright:   Copyright (C) 2015 Swift Navigation, Inc.
-- License:     LGPL-3
-- Maintainer:  Mark Fine <dev@swiftnav.com>
-- Stability:   experimental
-- Portability: portable
--
-- Encoding utilities.

module SwiftNav.SBP.Encoding where

import BasicPrelude
import Data.Aeson
import qualified Data.ByteString as B
import Data.ByteString.Base64 as Base64
import Data.Text.Encoding (decodeUtf8With)
import Data.Text.Encoding.Error

-- ByteString doesn't have Aeson instances defined for it since
-- arbitrary ByteString's aren't really valid JSON. This defines
-- orphaned instances for ByteStrings that are expected to be valid
-- text.

instance ToJSON B.ByteString where
  toJSON = toJSON . decodeUtf8With ignore . Base64.encode

instance FromJSON B.ByteString where
  parseJSON = withText "ByteString" (pure . Base64.decodeLenient . encodeUtf8)