From e6086ee34f2f3ba6c4968093de6e2b96f5664225 Mon Sep 17 00:00:00 2001
From: Mats Rauhala <mats.rauhala@iki.fi>
Date: Sat, 4 Aug 2018 23:44:55 +0300
Subject: [PATCH] Remove dead code

---
 src/API/Users.hs | 7 -------
 1 file changed, 7 deletions(-)

diff --git a/src/API/Users.hs b/src/API/Users.hs
index ce49770..80bd06d 100644
--- a/src/API/Users.hs
+++ b/src/API/Users.hs
@@ -20,9 +20,6 @@ import Data.Generics.Product
 import Servant.Auth as SA
 import Servant.Auth.Server as SAS
 
-data LoginForm = LoginForm { username :: Text
-                           , password :: Text }
-               deriving (Generic, Show)
 
 data RegisterForm = RegisterForm { username :: Username
                                  , email :: Email
@@ -34,12 +31,8 @@ data LoginStatus = LoginStatus ( Maybe SafeUser ) deriving Generic
 
 data RegisterStatus = RegisterStatus deriving Generic
 
-instance FromJSON LoginForm
-instance ToJSON LoginForm
 instance ToJSON LoginStatus
 instance FromJSON LoginStatus
-instance FromForm LoginForm
-instance ToForm LoginForm
 
 instance FromJSON RegisterForm
 instance ToJSON RegisterForm