diff --git a/haskell/free_monads.hs b/haskell/free_monads.hs
index 6b01400..6fde2ab 100644
--- a/haskell/free_monads.hs
+++ b/haskell/free_monads.hs
@@ -28,7 +28,7 @@ instance (Functor e) => Monad (Free e) where
     where
       h x = x >>= f
 
--- ANCHOR_END: Monad_free
+-- ANCHOR_END: Monad_Free
 
 -- ANCHOR: ReadOp
 data ReadOp r a = ReadOp (r -> a)