Hamlet $with error on ´.´

Hamlet $with error.hs

-- Hamlet file
$with Entity _ user <- runDB $ selectFirst [UserId ==. userId] [] >>= return.fromJust
    #{userIdent user}
    
    
-- Error (it is referring to the `.` in `return.fromJust`)
        <div #content-preview-container>
    <div .clear>
" (line 32, column 105):
unexpected '.'
expecting letter or digit, "_", "'", " ", ",", end of input, "\n" or "\r\n"
      Code: widgetFile "admin/articles"
    In a stmt of a 'do' block: $(widgetFile "admin/articles")
    In the second argument of `($)', namely