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. --- Biz/Id.hs | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'Biz/Id.hs') diff --git a/Biz/Id.hs b/Biz/Id.hs index 9bce013..4635f7f 100644 --- a/Biz/Id.hs +++ b/Biz/Id.hs @@ -14,6 +14,7 @@ import Alpha import Data.Aeson (FromJSON (..), ToJSON (..)) import Data.Binary (Binary) import Data.Data (Data) +import Servant (FromHttpApiData (..), ToHttpApiData (..)) newtype Id entity = Id Int deriving (Eq, Ord, Show, Generic, Typeable, Data) @@ -47,3 +48,9 @@ instance Semigroup (Id entity) where instance Monoid (Id entity) where mempty = mk (Proxy :: Proxy entity) 0 + +instance FromHttpApiData (Id entity) where + parseUrlPiece p = mk (Proxy :: Proxy entity) tshow -- cgit v1.2.3