form-final

---sudoku.hs file---
listEditMForm extra = do
    ifields <- M.forM lis (\(s,i) -> mreq intField  (fromString s) (Just i))
    let (iresults,iviews) = L.unzip ifields
    return ((FormSuccess iresults), iviews)

getSudokuR ::Handler Html
getSudokuR = defaultLayout $ do
    (iviews, enctype) <- generateFormPost listEditMForm
    let y = fun iviews
    setTitle "Sudoku"
    $(widgetFile "sudoku")

----sudoku.hamlet file-------
    <div #contentlayout align="center">
        <div>
            <table class="table table-bordered" #outer cellspacing="0" cellpadding="0">
                $forall ivlist <- y
                    <tr>
                      $forall iv <- ivlist
                        <td>^{fvInput iv}