Commits

Anonymous committed f1172d1

remove lift in the widget function as we are already in the Handler monad

  • Participants
  • Parent commits 636ab35

Comments (0)

Files changed (1)

Yesod/Widgets/CalHeatMap.hs

   | CalHeatMapJSONSettings J.Value
 
 calHeatMapWidget d = do
-  master <- lift getYesod
+  master <- getYesod
   addScriptRemote "http://kamisama.github.io/cal-heatmap/js/cal-heatmap.min.js"
   addStylesheetRemote "http://kamisama.github.io/cal-heatmap/css/cal-heatmap.css"
-  divId <- lift newIdent
+  divId <- newIdent
   [whamlet|
 <div##{divId}>
 |]