-- is this wrong?
module NLP.Brillig.Wrong where

import Data.Binary
import qualified Data.Text.Encoding as T
import Data.Text ( Text )

import NLP.Brillig

instance Binary Text where
  put = put . T.encodeUtf8
  get = fmap T.decodeUtf8 get

instance Binary Tag where
  put = put . fromTag
  get = fmap Tag get