A trouble with hamlet quasiquoter - web-devel

24 Feb 2012

      Greetings,

I'm trying to write a custom Yesod field for displaying a list of words. 
I copied the code from textareaField and played with it. Unfortunately, 
I'm getting a rather strange error message from the compiler. What's I'm 
doing wrong?

data GenTask = GenTask {
   gtWords :: [String],
   gtNumResults :: Int
}

blank :: (Monad m, RenderMessage master FormMessage)
       => (Text -> Either FormMessage a) -> [Text] -> m (Either 
(SomeMessage master) (Maybe a))
blank _ [] = return $ Right Nothing
blank _ ("":_) = return $ Right Nothing
blank f (x:_) = return $ either (Left . SomeMessage) (Right . Just) $ f x

textListField = Field
     { fieldParse = blank $ Right . map T.unpack . T.words
     , fieldView = \theId name theClass val isReq -> addHamlet
         [hamlet|\
 #{either id (T.pack . unwords) val}
|]
}

gtAForm = GenTask
<$> areq textListField "List of words" Nothing
<*> areq intField "Number of results to show" (Just 10)

[1 of 1] Compiling Main             ( src/Web.hs, interpreted )

src/Web.hs:42:9:
     Exception when trying to run compile-time code:
       "\
<textarea id="#{theId}" name="#{name}" :not (null 
theClass):class="#{T.intercalate " " theClass}" type="text" 
:isReq:required=""> #{either id (T.pack . unwords) val}
" (line 2, column 143):
unexpected "("
expecting "}"
       Code: Language.Haskell.TH.Quote.quoteExp
               hamlet
               "\\\n<textarea id=\"#{theId}\" name=\"#{name}\" :not 
(null theClass):class=\"#{T.intercalate \" \" theClass}\" type=\"text\" 
:isReq:required=\"\"> #{either id (T.pack . unwords) val}\n"
Failed, modules loaded: none.</p>

    </div>

    <div class="email-info">
      <div class="likeform-wrapper right">
        <div class="messagelink pull-right">
          <button class="toggle-font btn btn-sm"
                title="Display in fixed font"
                data-bs-toggle="tooltip" data-placement="bottom">
                <i class="fa fa-font"></i>
          </button>
          <a href="/archives/list/web-devel@haskell.org/message/CKND3UBSHSRBIK5GCGLBLZ7E6D3ZOAKT/"
             title="Permalink for this message"
             data-bs-toggle="tooltip" data-placement="bottom"><i class="fa fa-link"></i></a>
        </div>

    <form method="post" class="likeform"
          action="/archives/list/web-devel@haskell.org/message/CKND3UBSHSRBIK5GCGLBLZ7E6D3ZOAKT/vote">
    <input type="hidden" name="csrfmiddlewaretoken" value="Iz49lUTDxSkPkrVKso5L7hNgygi3kzxhFnZGPRm7bg5wb4mufBTmmme82LpxRgiT">

			<a class="youlike vote  disabled" title="You must be logged-in to vote."
			href="#like" data-vote="1" aria-label="Like thread">
					<i class="fa fa-thumbs-o-up"></i> 0
			</a>
			<a class="youdislike vote disabled" title="You must be logged-in to vote."
			href="#dislike" data-vote="-1" aria-label="Dislike thread">
				<i class="fa fa-thumbs-o-down"></i> 0
			</a>

    </form>

        </div>

        <!-- Reply link -->

        <a class="reply reply-mailto" title="Reply" href="#">
            <i class="fa fa-reply"></i>
            Reply
        </a>

        <!-- Attachments -->

        <!-- Reply form -->

        <div class="reply-form-unauthenticated">
            <a class="btn btn-sm btn-primary" href="/accounts/login/?next=/archives/list/web-devel%40haskell.org/thread/CKND3UBSHSRBIK5GCGLBLZ7E6D3ZOAKT/#">
                Sign in to reply online
            </a>
            <a class="btn btn-sm btn-secondary reply-mailto"
                       href="mailto:web-devel@haskell.org?Subject=Re%3A%20%5Bweb-devel%5D%20A%20trouble%20with%20hamlet%20quasiquoter&In-Reply-To=<4F475409.4060107%40gmail.com>"
                       >Use email software</a></li>
        </div>

    </div>

</div>

                    <!-- End first email -->

                    <p class="sort-mode">

                        <a href="/archives/list/web-devel@haskell.org/thread/CKND3UBSHSRBIK5GCGLBLZ7E6D3ZOAKT/?sort=date"
                            >Show replies by date</a>

                    </p>

                    <div class="anchor-link">
                        <a id="replies"></a>
                    </div>
                    <div class="replies">

                    </div>

                </div>
            </div>

            <div class="col-12 col-md-3">
                <div class="anchor-link">
                    <a id="stats"></a>
                </div>

<!-- right column -->
<section id="thread-overview-info">
    <!-- Start stats re: dates -->
    <div id="thread-date-info" class="row">
      <div class="col">
        <span class="days-num">4834</span>
        <div class="days-text">
          Age (days ago)
        </div>
      </div>
      <div class="col">
        <span class="days-num">4834</span>
        <div class="days-text">
          Last active (days ago)
        </div>
        </div>
    </div> <!-- /Stats re: dates -->

    <p>
        <a href="/archives/list/web-devel@haskell.org/" class="btn btn-outline-primary btn-sm">
            List overview
        </a>
    </p>

    <a href="/archives/list/web-devel@haskell.org/export/web-devel@haskell.org-CKND3UBSHSRBIK5GCGLBLZ7E6D3ZOAKT.mbox.gz?thread=CKND3UBSHSRBIK5GCGLBLZ7E6D3ZOAKT" title="This thread in gzipped mbox format"
          class="btn btn-outline-primary">
        <i class="fa fa-download"></i> Download</a>

    <p class="thread-overview-details">
    <div>
        <i class="fa fa-fw fa-comment"></i>
        0 comments
    </div>
    <div>
        <i class="fa fa-fw fa-user"></i>
        1 participants
    </div>

    </p>

    <form id="fav_form" name="favorite" method="post" class="favorite"
          action="/archives/list/web-devel@haskell.org/thread/CKND3UBSHSRBIK5GCGLBLZ7E6D3ZOAKT/favorite">
        <input type="hidden" name="csrfmiddlewaretoken" value="Iz49lUTDxSkPkrVKso5L7hNgygi3kzxhFnZGPRm7bg5wb4mufBTmmme82LpxRgiT">
        <input type="hidden" name="action" value="add" />
        <p>
            <a href="#AddFav" class="notsaved disabled" title="You must be logged-in to have favorites.">
                <i class="fa fa-fw fa-star"></i>Add to favorites</a>
            <a href="#RmFav" class="saved">
                <i class="fa fa-fw fa-star"></i>Remove from favorites</a>
        </p>
    </form>

    <div id="tags">

        <h3 id="tag-title">tags </h3>

    </div>

    <div id="participants">
        <h3 id="participants_title">participants (1)</h3>
        <ul class="list-unstyled">

            <li class="d-flex">
                <div class="participant-gravatar circle"><img class="gravatar" src="https://secure.gravatar.com/avatar/2e63d93295af8add996cd2a26310ea32.jpg?s=48&d=mm&r=g" width="48" height="48" alt="" /></div>
                <div class="participant-name d-flex align-items-center">
                    <span>Dmitry Vyal</span>
                </div>
            </li>

        </ul>
    </div>

</section>

            </div>

        </div>

</div>

<!-- end of content -->

    </div> <!-- /container for content -->

    <footer class="footer">
      <div class="container">
        <p class="text-muted">
            <img class="logo" alt="HyperKitty" src="/static/hyperkitty/img/logo.png" />
            Powered by <a href="http://hyperkitty.readthedocs.org">HyperKitty</a> version 1.3.9.
        </p>
      </div>
    </footer>

    <script src="/static/hyperkitty/libs/jquery/jquery-3.6.0.min.js"></script>
    <script src="/static/hyperkitty/libs/jquery/jquery-ui-1.13.1.min.js"></script>
    <script src="/static/CACHE/js/output.3aaa7705d68a.js"></script>
    <script>
      // Add the .js-enabled class to the body so we can style the elements
      // depending on whether Javascript is enabled.
      $(document).ready(function(){
          $("body").addClass("js-enabled");
          $(".gravatar").addClass("rounded-circle");
      });
    </script>

<script type="text/javascript">
    $(document).ready(function() {
        //enable tooltips for thread buttons
        $("btn#next-thread").tooltip();
        $("btn#prev-thread").tooltip();

        setup_category();
        setup_tags();
        setup_favorites();
        // Hide quotes by default in the thread view
        fold_quotes("div.container-xxl");
        // Load the replies
        update_thread_replies("/archives/list/web-devel@haskell.org/thread/CKND3UBSHSRBIK5GCGLBLZ7E6D3ZOAKT/replies?sort=thread&last_view=");
        setup_unreadnavbar("#unreadnavbar");
        setup_thread_keyboard_shortcuts();
    });
</script>

    </body>
</html>