Skip to content

Commit

Permalink
Remove "Exercise" comment from solution
Browse files Browse the repository at this point in the history
  • Loading branch information
endgame committed Feb 22, 2020
1 parent db71e0f commit 6a80899
Showing 1 changed file with 0 additions and 1 deletion.
1 change: 0 additions & 1 deletion bonus/hkd.md
Original file line number Diff line number Diff line change
Expand Up @@ -293,7 +293,6 @@ class Rank2Functor g => Rank2Traversable g where
r2traverse :: Applicative m => (forall a . p a -> m (q a)) -> g p -> m (g q)
r2traverse f = r2sequence . r2fmap (Compose . f)

-- Exercise: implement both methods of Rank2Traversable.
instance Rank2Traversable Config where
r2sequence :: Applicative m => Config (Compose m p) -> m (Config p)
r2sequence (Config p db) = Config <$> getCompose p <*> getCompose db
Expand Down

0 comments on commit 6a80899

Please sign in to comment.