Fix syntax error from ghc

But ghci is perfectly content with this.  :(

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.