nek0/eidolon
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

removing multiple occurences of the same user in userField

Browse source
This commit is contained in:
nek0 2014-12-06 14:03:13 +01:00
parent 49e55e7bc7
commit d14c2113f2
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Helper.hs
View file

@ -22,6 +22,7 @@ import Control.Applicative
import Control.Monad.Trans.Class import Control.Monad.Trans.Class
import Data.Maybe import Data.Maybe
import Data.Either import Data.Either
import Data.List
import qualified Data.ByteString as B import qualified Data.ByteString as B
import qualified Data.ByteString.Lazy as BL import qualified Data.ByteString.Lazy as BL
import qualified Data.ByteString.Char8 as BC import qualified Data.ByteString.Char8 as BC
@ -102,7 +103,7 @@ userField users = Field
-- clean = removeItem "" $ T.splitOn " " x -- clean = removeItem "" $ T.splitOn " " x
let ids = map (\u -> lookup u users) (removeItem "" $ T.splitOn " " x) let ids = map (\u -> lookup u users) (removeItem "" $ T.splitOn " " x)
in case Nothing `elem` ids of in case Nothing `elem` ids of
False -> return $ Right $ Just $ map fromJust ids False -> return $ Right $ Just $ nub $ map fromJust ids
True -> return $ Left $ error "Invalid username list" True -> return $ Left $ error "Invalid username list"
True -> return $ Right $ Just $ [] True -> return $ Right $ Just $ []
_ -> return $ Left $ error "unexpected username list" _ -> return $ Left $ error "unexpected username list"