Support POST /unfreeze

Allow admins and managers to unfreeze accounts that we froze for security
reasons.

1 files changed, 9 insertions, 0 deletions

diff --git a/src/Types.hs b/src/Types.hs
index 485111f38bac..7bfdf6cfd000 100644
--- a/src/Types.hs
+++ b/src/Types.hs
@@ -467,3 +467,12 @@ updateTrip UpdateTripRequest{..} Trip{..} = Trip
   , tripEndDate     = M.fromMaybe tripEndDate updateTripRequestEndDate
   , tripComment     = M.fromMaybe tripComment updateTripRequestComment
   }
+
+data UnfreezeAccountRequest = UnfreezeAccountRequest
+  { unfreezeAccountRequestUsername :: Username
+  } deriving (Eq, Show)
+
+instance FromJSON UnfreezeAccountRequest where
+  parseJSON = withObject "UnfreezeAccountRequest" $ \x -> do
+    unfreezeAccountRequestUsername <- x .: "username"
+    pure UnfreezeAccountRequest{..}