@@ -42,7 +42,7 @@ import Servant.API
4242type JSONValue = Value
4343
4444newtype JSONText a = JSONText a
45− deriving (Eq, Ord, Read, Show, Data, Typeable, FromText, ToText)
45+ deriving (Eq, Ord, Read, Show, Num, Data, Typeable, FromText, ToText)
4646
4747instance (FromJSON a, FromText a) => FromJSON (JSONText a) where
4848 parseJSON (String s) =