diff --git a/MFlow.cabal b/MFlow.cabal
--- a/MFlow.cabal
+++ b/MFlow.cabal
@@ -1,5 +1,5 @@
 name: MFlow
-version: 0.4.5.8
+version: 0.4.5.9
 cabal-version: >=1.8
 build-type: Simple
 license: BSD3
@@ -145,4 +145,4 @@
 --                    InitialConfig GenerateForm GenerateFormUndo GenerateFormUndoMsg WebService
 --                    LazyLoad CachingDataset
 --    ghc-options: -iDemos -threaded -rtsopts
-
+--
diff --git a/src/MFlow.hs b/src/MFlow.hs
--- a/src/MFlow.hs
+++ b/src/MFlow.hs
@@ -75,7 +75,7 @@
 ,config,getConfig
 ,setFilesPath
 -- * internal use
-,addTokenToList,deleteTokenInList, msgScheduler,serveFile,newFlow
+,addTokenToList,deleteTokenInList, msgScheduler,serveFile,mimeTable, newFlow
 ,UserStr,PasswdStr, User(..),eUser
 
 )
@@ -695,13 +695,14 @@
       Just r ->
          let ext  = reverse . takeWhile (/='.') $ reverse path
              mmime= lookup (map toLower ext) mimeTable
-             mime = case mmime of Just m -> m ;Nothing -> "application/octet-stream"
+             mime = case mmime of Just m -> m; Nothing -> "application/octet-stream"
 
          in return $ HttpData  [setMime mime, ("Cache-Control", "max-age=360000")] [] r
    where
    noperm= "no permissions"
    ioerr x= \(e :: CE.IOException) ->  x
    setMime x= ("Content-Type",x)
+
 
 --------------------- FLOW ID GENERATOR ------------