snippet <- unsafeInterleaveIO $
do doc <- getDocument index docId [NoAttributes, NoKeywords]
sn <- makeSnippet doc words 300 80 80
snippet <- unsafeInterleaveIO $
do doc <- getDocument index docId [NoAttributes, NoKeywords]
sn <- makeSnippet doc words 300 80 80