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

molti space handling

Browse source
This commit is contained in:
nek0 2014-09-21 19:42:18 +02:00
parent 78597829ad
commit 4799e992ac
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Helper.hs
View file

@ -83,7 +83,7 @@ tagField = Field
{ fieldParse = \rawVals _ -> do { fieldParse = \rawVals _ -> do
case rawVals of case rawVals of
[x] -> case null [x] of [x] -> case null [x] of
False -> return $ Right $ Just $ T.splitOn " " x False -> return $ Right $ Just $ removeItem "" $ T.splitOn " " x
True -> return $ Right $ Nothing True -> return $ Right $ Nothing
_ -> return $ Left $ error "unexpected tag list" _ -> return $ Left $ error "unexpected tag list"
, fieldView = \idAttr nameAttr val eResult isReq -> , fieldView = \idAttr nameAttr val eResult isReq ->