Fix broken test

It would be nice if we had a better way of handling "decoders" that can't fail
ccap · Jun 27, 2019 · 157fc7b · 157fc7b
1 parent 63f928b
commit 157fc7b
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/samples/SelfContained.tmpl b/samples/SelfContained.tmpl
@@ -11,7 +11,7 @@ module SelfContained  {
   type Bunnies: wrap Int
     <purs
       t="Test.Support.Newint"
-      decode="Data.Newtype.wrap"
+      decode="Ccap.Codegen.Runtime.decodeNewtype"
       encode="Data.Newtype.unwrap">
 
   type County: {

diff --git a/src/Ccap/Codegen/Runtime.purs b/src/Ccap/Codegen/Runtime.purs
@@ -99,12 +99,15 @@ codec_custom
   -> Codec a t
 codec_custom decode encode = composeCodec { decode, encode }
 
+decodeNewtype :: forall t a. Newtype t a => a -> Either String t
+decodeNewtype a = Right $ wrap a
+
 codec_newtype
   :: forall t a b
    . Newtype t b
   => Codec a b
   -> Codec a t
 codec_newtype = composeCodec
-  { decode: Right <<< wrap
+  { decode: decodeNewtype
   , encode: unwrap
   }