Merge branch 'master' of github.com:ekmett/lens

ekmett · Nov 6, 2012 · f0f7671 · f0f7671
2 parents 481a299 + 6d7f7e2
commit f0f7671
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Control/Lens/Getter.hs b/src/Control/Lens/Getter.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE MagicHash #-}
 {-# LANGUAGE CPP #-}
 {-# LANGUAGE Rank2Types #-}
 {-# LANGUAGE MultiParamTypeClasses #-}
@@ -207,7 +208,7 @@ view l = runAccessor# (l Accessor)
 -- 'views' :: 'Monoid' m => 'Control.Lens.Type.Simple' 'Control.Lens.Traversal.Traversal' s a   -> (a -> m) -> s -> m
 -- @
 views :: Getting r s t a b -> (a -> r) -> s -> r
-views l f = runAccessor# (l (Accessor# f))
+views l f = runAccessor# (l (accessor# f))
 {-# INLINE views #-}
 
 -- | View the value pointed to by a 'Getter', 'Control.Lens.Iso.Iso' or