loggedAction =
do log "I'm going to do something very unsafe"
a <- veryUnsafeFFIFunction
log "Unsafe place passed, everything OK"
b <- relativelySafeFFIFunction a
log "Just to make sure"
main = runLog (openFile "log.txt") loggedAction
Ну и в log.txt потом (наверное) прочитаем:
I'm going to do something very unsafe
Unsafe place passed, everything OK
no subject
loggedAction = do log "I'm going to do something very unsafe" a <- veryUnsafeFFIFunction log "Unsafe place passed, everything OK" b <- relativelySafeFFIFunction a log "Just to make sure" main = runLog (openFile "log.txt") loggedActionНу и в log.txt потом (наверное) прочитаем: