Add utf8Encoder

obsidiansystems · May 31, 2024 · cdd192e · cdd192e
1 parent b50ac6a
commit cdd192e
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/lib/route/src/Obelisk/Route.hs b/lib/route/src/Obelisk/Route.hs
@@ -128,6 +128,7 @@ module Obelisk.Route
   , fieldMapEncoder
   , pathFieldEncoder
   , jsonEncoder
+  , utf8Encoder
   ) where
 
 import Prelude hiding ((.), id)
@@ -1262,6 +1263,14 @@ jsonEncoder = unsafeEncoder $ do
         Right x -> return x
     }
 
+utf8Encoder :: (Applicative check, MonadError Text parse) => Encoder check parse Text BS.ByteString
+utf8Encoder = unsafeMkEncoder $ EncoderImpl
+  { _encoderImpl_encode = T.encodeUtf8
+  , _encoderImpl_decode = \bs -> case T.decodeUtf8' bs of
+      Left err -> throwError $ "utf8Encoder: " <> tshow err
+      Right x -> pure x
+  }
+
 -- Useful for app server integration.
 -- p must not start with slashes
 byteStringsToPageName :: BS.ByteString -> BS.ByteString -> PageName

diff --git a/lib/route/test/Main.hs b/lib/route/test/Main.hs
@@ -194,6 +194,7 @@ atomicEncoders = let t n e = (n, Ex e) in
   [ t "addPathSegmentEncoder" addPathSegmentEncoder
   , t "fieldMapEncoder" $ fieldMapEncoder @_ @_ @XY
   , t "jsonEncoder" $ jsonEncoder @_ @_ @Input
+  , t "utf8Encoder" utf8Encoder
   , t "maybeToEitherEncoder" $ maybeToEitherEncoder @_ @_ @Input
   , t "pathComponentEncoder" fragmentEncoder
   , t "pathSegmentsTextEncoder" pathSegmentsTextEncoder