MFlow 0.4.5.8 → 0.4.5.9

raw patch · 2 files changed

+5/−4 lines, 2 filesPVP: minor bump suggested

API additions: PVP suggests at least a minor version bump

API changes (from Hackage documentation)

Files

• MFlow.cabal +2/−2
• src/MFlow.hs +3/−2

@@ -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
-
+--

@@ -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 ------------