From 1c07b112aa8c721beadc0494972c18462a5946bf Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Wed, 27 Jan 2021 22:24:37 -0500 Subject: Set subscription in user page, operator precedence I'm still working on figuring out operator precedence with my custom operators. The normal precedences don't work well for writing code in a pipeline as I like, so I have to re-define the operators with my own fixity settings. This will take some fiddling to get right. The user subscription allows setting to "Free" only now. It's fine because I still need to do a design refresh on the pages I just made. One thing I noticed is that it's getting harder to make changes without breaking stuff, so I either need to make smaller incremental changes, or actually write some real tests. I'll probably write tests soon. --- Hero/Node.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'Hero/Node.hs') diff --git a/Hero/Node.hs b/Hero/Node.hs index 38f540d..e7eb687 100644 --- a/Hero/Node.hs +++ b/Hero/Node.hs @@ -53,7 +53,6 @@ import qualified Miso.FFI.Document as Document import qualified Miso.FFI.Fullscreen as Fullscreen import Miso.String import qualified Network.RemoteData as Network -import Protolude -- | Entry point for a miso application main :: IO () @@ -143,7 +142,7 @@ move (ToggleInLibrary c) form = form {user = newUser} <# pure NoOp newUser = (user form) {userLibrary = newLib} newLib | c `elem` (userLibrary <| user form) = - Protolude.filter (/= c) <| userLibrary <| user form + Alpha.filter (/= c) <| userLibrary <| user form | otherwise = c : (userLibrary <| user form) move (HandleURI u) form = form {uri = u} <# pure NoOp move (ChangeURI u) form = -- cgit v1.2.3