packages feed

lio-simple 0.0.0.2 → 0.0.0.3

raw patch · 4 files changed

+8/−10 lines, 4 filesdep ~wai

Dependency ranges changed: wai

Files

LIO/Web/Simple/TCB.hs view
@@ -118,6 +118,7 @@ rmResponseHeader (ResponseFile    x hs y z) h = ResponseFile    x hs' y z where hs' = rm h hs rmResponseHeader (ResponseBuilder x hs y  ) h = ResponseBuilder x hs' y   where hs' = rm h hs rmResponseHeader (ResponseSource  x hs y  ) h = ResponseSource  x hs' y   where hs' = rm h hs+rmResponseHeader (ResponseRaw     x r     ) h = ResponseRaw x (rmResponseHeader r h)  rm :: HeaderName -> [Header] -> [Header] rm h = List.filter ((/= h) . fst)
lio-simple.cabal view
@@ -1,5 +1,5 @@ name:                lio-simple-version:             0.0.0.2+version:             0.0.0.3 synopsis:            LIO support for the Simple web framework description: @@ -24,7 +24,7 @@     , conduit     , directory     , filepath-    , wai >= 2.0+    , wai >= 2.1     , wai-extra     , warp     , http-types
template/Common_hs.tmpl view
@@ -1,11 +1,10 @@-{-# LANGUAGE Trustworthy #-}-$if(include_templates)$+{-# LANGUAGE Trustworthy #-}$if(include_templates)$ {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE MultiParamTypeClasses #-} $endif$ module $module$.Common where -import Prelude hiding (readFile, appendFile)+import Prelude hiding (readFile, writeFile, appendFile, catch) import LIO import LIO.DCLabel $if(include_templates)$@@ -30,16 +29,14 @@   return AppSettings  $if(include_templates)$-instance HasTemplates DC AppSettings where-$if(include_fs)$+instance HasTemplates DC AppSettings where$if(include_fs)$   viewDirectory = return $$ "views"   defaultLayout = Just <$$> getTemplate ("layouts" </> "main.html")   getTemplate fp = do     eres <- compileTemplate . decodeUtf8 <$$> liftLIO (liftLIO $$ readFile fp)     case eres of       Left str -> fail str-      Right tmpl -> return tmpl-$else$+      Right tmpl -> return tmpl$else$   viewDirectory = return $$ "liofs" </> "views"   defaultLayout = Just <$$> getTemplate ("liofs" </> "layouts" </> "main.html")   getTemplate = liftLIO . lioGetTemplateTCB
template/index_html.tmpl view
@@ -1,1 +1,1 @@-Welcome to your new app! This file lives in &quot;views/index.html&quot;+Welcome to your new app! This file lives in &quot;liofs/views/index.html&quot;