diff options
Diffstat (limited to 'Handlers.hs')
| -rw-r--r-- | Handlers.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Handlers.hs b/Handlers.hs index 503358b..ccce1d0 100644 --- a/Handlers.hs +++ b/Handlers.hs @@ -9,6 +9,7 @@ module Handlers where import Codec.MIME.Parse(parseMIMEMessage) import Codec.MIME.Type(MIMEValue(..)) +import Control.Exception(evaluate) import Control.Monad.State import Data.List(intercalate, stripPrefix) import System.FilePath(FilePath, takeFileName, dropTrailingPathSeparator) @@ -33,7 +34,7 @@ changeMode :: Mode -> LazymailCurses () changeMode EmailMode = return () changeMode IndexMode = do st <- get - msg <- liftIO $ UTF8.readFile . selectedEmailPath . indexState $ st + msg <- liftIO $ UTF8.readFile (selectedEmailPath . indexState $ st) let email = parseMIMEMessage msg let body = getBody $ email let el = formatBody body $ screenColumns st |