From 4799e992ac223b913288c2345ee90b01d2db2433 Mon Sep 17 00:00:00 2001 From: nek0 Date: Sun, 21 Sep 2014 19:42:18 +0200 Subject: [PATCH] molti space handling --- Helper.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Helper.hs b/Helper.hs index ca2aaa6..d591a49 100644 --- a/Helper.hs +++ b/Helper.hs @@ -83,7 +83,7 @@ tagField = Field { fieldParse = \rawVals _ -> do case rawVals 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 _ -> return $ Left $ error "unexpected tag list" , fieldView = \idAttr nameAttr val eResult isReq ->