Hello Michael.  Hello All.

Please help me to explain  what is wrong 

i have a function which worked before i add line <img src="StaticR p1_png"> :

toHamlet :: [SearchResult] -> String - > Int -> Html
toHamlet results queryId n = [$hamlet|
$forall r <- results
    <div #search-result-block qid="#{queryId}" piece="#{show n}">
        <div .image-block .left>
           <img src="StaticR p1_png">
        <div .info1-block .left>
            <span>#{snd $ snd r}
        <div .info2-block .left>
        <div .clear>
|]

I have the compile time error: 

Couldn't match expected type `hamlet-0.7.1:Text.Hamlet.Quasi.R:HamletUrlHtmlM'
           against inferred type `EstateRoute'
    In the first argument of `\ u[ahZb]
                                  -> hamlet-0.7.1:Text.Hamlet.Quasi.urlToHamletMonad
                                       u[ahZb] []', namely
        `StaticR p1_png'
    In a stmt of a 'do' expression:
        \ u[ahZb]
            -> hamlet-0.7.1:Text.Hamlet.Quasi.urlToHamletMonad u[ahZb] []
          (StaticR p1_png)
    In the expression:
        do { (hamlet-0.7.1:Text.Hamlet.Quasi.htmlToHamletMonad
            . preEscapedString)
               "<div id=\"search-result-block\" qid=\"";
             (hamlet-0.7.1:Text.Hamlet.Quasi.htmlToHamletMonad
            . Text.Blaze.toHtml)
               queryId;
             (hamlet-0.7.1:Text.Hamlet.Quasi.htmlToHamletMonad
            . preEscapedString)
               "\" piece=\"";
             (hamlet-0.7.1:Text.Hamlet.Quasi.htmlToHamletMonad
            . Text.Blaze.toHtml)
               (show n);
             .... }

I do not understand why (.

Thanks.

--
Best regards,
Cheshkov Anton
Phone: +7 909 005 18 82
Skype: cheshkov_anton