diff options
| author | Ben Sima <ben@bsima.me> | 2021-01-27 22:24:37 -0500 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2021-01-27 22:24:37 -0500 |
| commit | 1c07b112aa8c721beadc0494972c18462a5946bf (patch) | |
| tree | 9e15cb6c118f8d6dda35b09c481360e0e266f3f2 /Hero/Node.hs | |
| parent | 6c72ee7b29b5b69e93854fde67cbc7a53f998ed7 (diff) | |
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.
Diffstat (limited to 'Hero/Node.hs')
| -rw-r--r-- | Hero/Node.hs | 3 |
1 files changed, 1 insertions, 2 deletions
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 = |