mirror of
https://github.com/commercialhaskell/stackage-server.git
synced 2026-01-12 04:08:29 +01:00
24 lines
674 B
Haskell
24 lines
674 B
Haskell
module Handler.Aliases where
|
|
|
|
import Import
|
|
import Data.Text (strip)
|
|
|
|
putAliasesR :: Handler ()
|
|
putAliasesR = do
|
|
uid <- requireAuthId
|
|
aliasesText <- runInputPost $ ireq textField "aliases"
|
|
aliases <- mapM (parseAlias uid) $ lines aliasesText
|
|
runDB $ do
|
|
deleteWhere [AliasUser ==. uid]
|
|
mapM_ insert aliases
|
|
setMessage "Aliases updated"
|
|
redirect ProfileR
|
|
|
|
parseAlias :: UserId -> Text -> Handler Alias
|
|
parseAlias uid t = maybe (invalidArgs ["Invalid alias: " ++ t]) return $ do
|
|
name <- fromPathPiece x
|
|
setid <- fromPathPiece y
|
|
return $ Alias uid name setid
|
|
where
|
|
(strip -> x, (strip . drop 1) -> y) = break (== ':') t
|