Browse files

gcast

  • Loading branch information...
1 parent 3e23f72 commit 415e5dbf1f3c4021a14f968b47e52e6b1876518f @ekmett committed Aug 25, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/Data/Typeable/Lens.hs
View
2 src/Data/Typeable/Lens.hs
@@ -25,7 +25,7 @@ _cast f a = case cast a of
Just b -> Unsafe.unsafeCoerce <$> f b
Nothing -> pure a
--- | A 'Simple' 'Traversal' for working with a 'cast' of a 'Typeable' value.
+-- | A 'Simple' 'Traversal' for working with a 'gcast' of a 'Typeable' value.
_gcast :: (Typeable a, Typeable b) => Simple Traversal (c a) (c b)
_gcast f a = case gcast a of
Just b -> Unsafe.unsafeCoerce <$> f b

0 comments on commit 415e5db

Please sign in to comment.