Haskell Yesod und writeFile

Question

Ich versuche, Jessod zu lernen und zu versuchen, eine einfache REST-App zu implementieren, wo immer ich eine GET Anfrage ich schreibe etwas in eine Datei. Im Moment habe ich die folgende Handler-Funktion:

getTestR = 
    do 
    return $ writeFile "test.txt" "Just something" 
    return $ object ["result" .= "Ok"] 

Was ich erwartet hatte, dass die Datei test.txt würde erstellt werden, und ich würde einen JSON mit {result=Ok} erhalten. Ich erhalte jedoch den JSON, aber die Datei wird nicht erstellt.

Ich denke, die writeFile wird nicht wegen der faulen Bewertung ausgewertet, aber ich habe keine Ahnung, wie dieses Problem zu überwinden. Danke im Voraus.

Answer 1

verwenden nur liftIO:

getTestR = 
    do 
    liftIO $ writeFile "test.txt" "Just something" 
    return $ object ["result" .= "Ok"]