diff --git a/obelisk/frontend/src/Pages/Folder.hs b/obelisk/frontend/src/Pages/Folder.hs
index 61ea82763c2db1ebaf264efc9b9dab965ecdb97c..1dbed4c54f866b2793f53f73ea8929d181f883c1 100644
--- a/obelisk/frontend/src/Pages/Folder.hs
+++ b/obelisk/frontend/src/Pages/Folder.hs
@@ -41,9 +41,11 @@ humanReadableSize n
       fmt m suffix = (Data.Text.pack . show . (`div` m) $ n) <> " " <> suffix
 
 data LeaveAction
-    = Close -- | Close the file browser.
-    | Up    -- | Navigate up one level in the directory hierarchy.
-    deriving (Eq, Ord, Show)
+    -- | Close the file browser.
+    = Close
+    -- | Navigate up one level in the directory hierarchy.
+    | Up
+      deriving (Eq, Ord, Show)
 
 -- | For a given file browser path, determine what the "leave this page"
 -- action means.