gistfile1.hs

module Main where

import System.IO.MMap
import qualified Data.ByteString.Lazy as BL

somedata:: IO BL.ByteString
somedata = mmapFileByteStringLazy "some.data" Nothing

main = somedata >>= return . show . BL.last >>= putStrLn
{- some.data file is 1625424 bytes long (in case that matters)
 - the code crashes with a nasty segfault
 -}