parseError.hs

makeTagFiles tags = \tag pattern -> (do
    route idRoute
    compile (do
       posts <- recentFirst =<< loadAll pattern
       let postsField = listField "posts" postCtx (pure posts)
       let titleField = constField "title" ("Posts tagged \"" <> tag <> "\"")
       let ctx = postCtxWithTags tags `mappend` postsField `mappend` titleField `mappend` siteCtx
       makeItem ""
           >>= loadAndApplyTemplate "templates/tag.html" ctx
           >>= loadAndApplyTemplate "templates/default.html" ctx
           >>= relativizeUrls))

Why do I get a parse error from hlint? I have re-written this a bunch of times. This time I eliminated all use of $.

Found:
    --
    makeTagFiles :: Tags -> (String -> Pattern -> Rules ())
  > makeTagFiles tags = \tag pattern ->
        (do
            route idRoute

Opps. Top line of the error message was missing from my comment.

 site.hs:183:26: Error: Parse error

site.hs:183:26: Error: Parse error
Found:
    --
    makeTagFiles :: Tags -> (String -> Pattern -> Rules ())
  > makeTagFiles tags = \tag pattern ->
        (do
            route idRoute

Okay with newer hlint I get:

Error: Parse error: on input `pattern'
Found:
    --
    makeTagFiles :: Tags -> (String -> Pattern -> Rules ())
  > makeTagFiles tags = \tag pattern ->
        (do
            route idRoute