From a7b9577357e944813e5706574361fb17620a325a Mon Sep 17 00:00:00 2001
From: Jean-Paul Calderone <exarkun@twistedmatrix.com>
Date: Thu, 30 Mar 2023 09:40:21 -0400
Subject: [PATCH] Fix syntax error from ghc
But ghci is perfectly content with this. :(
---
obelisk/frontend/src/Pages/Folder.hs | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/obelisk/frontend/src/Pages/Folder.hs b/obelisk/frontend/src/Pages/Folder.hs
index 61ea827..1dbed4c 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.
--
GitLab