simple 0.7.0 → 0.7.0.1

raw patch · 3 files changed

+6/−5 lines, 3 files

Files

simple.cabal +1/−1
src/Web/Simple/Static.hs +4/−1
src/Web/Simple/Templates.hs +1/−3

simple.cabal view

@@ -1,5 +1,5 @@ name:                simple-version:             0.7.0+version:             0.7.0.1 synopsis: A minimalist web framework for the WAI server interface description:

src/Web/Simple/Static.hs view

@@ -15,7 +15,10 @@   req <- request   let fp = foldl (</>) baseDir (map T.unpack $ pathInfo req)   exists <- liftIO $ doesFileExist fp-  when exists $+  when exists $ do+    liftIO $ do+      modTime <- getModificationTime fp+      print modTime     respond $ responseFile status200       [(hContentType, defaultMimeLookup $ T.pack $ takeFileName fp)]       fp Nothing

src/Web/Simple/Templates.hs view

@@ -81,9 +81,7 @@     fm <- functionMap     dir <- viewDirectory     tmpl <- getTemplate (dir </> fp)-    let pageContent =-          L.fromChunks . (:[]) . encodeUtf8 $-            renderTemplate tmpl fm $ toJSON val+    let pageContent = renderTemplate tmpl fm $ toJSON val     let mime = defaultMimeLookup $ T.pack $ takeFileName fp     respond $ ok mime $ L.fromChunks . (:[]) . encodeUtf8 $       renderTemplate layout fm $ object ["yield" .= pageContent, "page" .= val]