MasseR/ebook-manager
1
0
Fork 0
Code Issues 9 Pull Requests Releases Wiki Activity

Remove dead code

Browse Source
This commit is contained in:
Mats Rauhala 2018-08-04 23:44:55 +03:00
parent 4a3e598f8a
commit e6086ee34f
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/API/Users.hs
View File

@ -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