From 99398c1ecfe40f18bb725571f4758d50c910189c Mon Sep 17 00:00:00 2001 From: nek0 Date: Sat, 30 Aug 2014 23:36:23 +0200 Subject: [PATCH] tagField now can load tag lists --- Helper.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Helper.hs b/Helper.hs index f589cfe..409485b 100644 --- a/Helper.hs +++ b/Helper.hs @@ -16,6 +16,7 @@ import Model import Control.Applicative import Control.Monad.Trans.Class import Data.Maybe +import Data.Either import qualified Data.ByteString as B import qualified Data.ByteString.Lazy as BL import qualified Data.ByteString.Char8 as BC @@ -78,7 +79,7 @@ tagField = Field case rawVals of [x] -> return $ Right $ Just $ T.splitOn " " x _ -> return $ Left $ error "unexpected tag list" - , fieldView = \idAttr nameAttr _ eResult isReq -> - [whamlet||] + , fieldView = \idAttr nameAttr val eResult isReq -> + [whamlet||] , fieldEnctype = UrlEncoded }