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.

1 files changed, 6 insertions, 4 deletions

diff --git a/Biz/Que/Host.hs b/Biz/Que/Host.hs
index d50993c..cbf4bfd 100644
--- a/Biz/Que/Host.hs
+++ b/Biz/Que/Host.hs
@@ -166,10 +166,12 @@ routes cfg = do
     authkey <- fromMaybe "" </ Scotty.header "Authorization"
     (ns, qp) <- extract
     -- Only allow my IP or localhost to publish to '_' namespace
-    when ("_" == ns && authkey /= (Text.Lazy.strip <| queSkey cfg))
-      <| Scotty.status Http.methodNotAllowed405
-      >> Scotty.text "not allowed: _ is a reserved namespace"
-      >> Scotty.finish
+    when
+      ("_" == ns && authkey /= (Text.Lazy.strip <| queSkey cfg))
+      ( Scotty.status Http.methodNotAllowed405
+          >> Scotty.text "not allowed: _ is a reserved namespace"
+          >> Scotty.finish
+      )
     guardNs ns ["pub", "_"]
     -- passed all auth checks
     app <. modify <| upsertNamespace ns