lab07: impl applicative

2026-03-01 22:50:44 -08:00
parent d0f0d271ea
commit 23b2a4376d
1 changed files with 2 additions and 1 deletions
--- a/lab07/facetedValues.lhs
+++ b/lab07/facetedValues.lhs
@@ -69,7 +69,8 @@ Define the behavior of the Functor below

 > instance Applicative FacetedValue where
 >   pure = Raw
->   fv1 <*> fv2 = error "Your code here"
+>   Raw f <*> fv2 = fmap f fv2
+>   Facet label auth unauth <*> fv2 = Facet label (auth <*> fv2) (unauth <*> fv2)


 The code below gives an example of how this might come up.  If code authorized