From bf5d1ff469bbd94e1f89aa9d2d4b19ec32a8b988 Mon Sep 17 00:00:00 2001
From: LukeTemp <38944835+LukeTemp@users.noreply.github.com>
Date: Mon, 11 Dec 2023 18:19:28 +0000
Subject: [PATCH] Update haddock

---
 yesod-form/Yesod/Form/Option.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/yesod-form/Yesod/Form/Option.hs b/yesod-form/Yesod/Form/Option.hs
index 7185d863f..1eb894c21 100644
--- a/yesod-form/Yesod/Form/Option.hs
+++ b/yesod-form/Yesod/Form/Option.hs
@@ -23,7 +23,7 @@ import Yesod.Form.Fields
 --
 -- @example.hs
 -- > data UserRole = URSalesTeam | URSalesHead | URTechTeam | URTechHead
---
+-- >
 -- > instance PathPiece UserDepartment where
 -- >   toPathPiece = \case
 -- >     URSalesTeam -> "sales-team"
@@ -36,7 +36,7 @@ import Yesod.Form.Fields
 -- >     "tech-team" -> Just URTechTeam
 -- >     "tech-head" -> Just URTechHead
 -- >     _ -> Nothing
---
+-- >
 -- > userRoleOptions ::
 -- >   (MonadHandler m, RenderMessage (HandlerSite m) msg) => m (OptionList UserRole)
 -- > userRoleOptions = optionsFromList' userRoles toMsg