Handler MonadでunsafePerformIOを回避する方法は？

Question

YesodハンドラでunsafePerformIOを回避することに頭を悩ませてしまいました。 HandlerのコードはHandler Monadにありますので、どのようにIO操作を実行できますか？

getProfileR :: Handler Html 
getProfileR = do 

    -- toTMDBMovie's return-type is IO Movie 
    -- Without the unsafePerformIO the type of result would be IO [Movie] 
    -- How do I get from IO [Movie] to [Movie]? 
    -- Ignore reccMovies - it's just a parameter. 

    let result = unsafePerformIO $ mapM toTMDBMovie reccMovies 

    defaultLayout $ do 
     setTitle "Profile" 
     $(widgetFile "profile") 

ありがとうございました！

Answer 1

作業中のモナドmがMonadIOクラスの場合、liftIO :: IO a -> m aを使用して内部でIOアクションを実行できます。

Yesodの場合、Handlerアクション、および永続的なrunDBブロックでIOアクションを実行できます。