snaplet-fay 0.2.0.0 → 0.3.0.1
raw patch · 3 files changed
+7/−9 lines, 3 filesdep ~faydep ~snap
Dependency ranges changed: fay, snap
Files
- resources/devel.cfg +1/−1
- snaplet-fay.cabal +3/−3
- src/Snap/Snaplet/Fay/Internal.hs +3/−5
resources/devel.cfg view
@@ -15,6 +15,6 @@ # A comma-separated list of directories to look for fay imports in. # This is useful if you want to share modules between Fay and Snap. # Paths are relative to the root of the snap application.-# snaplets/src/fay will always be checked for imports.+# snaplets/fay/src will always be checked for imports. # Default is "" meaning no additional directories will be checked. includeDirs = ""
snaplet-fay.cabal view
@@ -5,7 +5,7 @@ -- PVP summary: +-+------- breaking API changes -- | | +----- non-breaking API additions -- | | | +--- code changes with no API change-version: 0.2.0.0+version: 0.3.0.1 synopsis: Fay integration for Snap with request- and pre-compilation. description: Fay integration for Snap with request based compilation during development and precompilation in production. For more information, please see <https://github.com/faylang/snaplet-fay>.@@ -45,9 +45,9 @@ configurator == 0.2.*, data-default >= 0.4, directory == 1.1.*,- fay >= 0.9.1,+ fay >= 0.11, filepath == 1.3.*, mtl == 2.1.*,- snap == 0.9.*,+ snap >= 0.9 && < 0.11, snap-core == 0.9.*, transformers == 0.3.*
src/Snap/Snaplet/Fay/Internal.hs view
@@ -5,8 +5,7 @@ import Control.Applicative import Control.Monad import Data.Default-import qualified Language.Fay.Compiler as F-import qualified Language.Fay.Types as F+import qualified Language.Fay as F import System.Directory import System.FilePath @@ -49,9 +48,8 @@ putStrLn $ "snaplet-fay: Could not find: " ++ hsRelativePath f return NotFound else do- res <- F.compileFile def { F.configDirectoryIncludes = includeDirs config- , F.configPrettyPrint = prettyPrint config- , F.configAutorun = True } f+ res <- F.compileFile (F.addConfigDirectoryIncludes (includeDirs config) + def { F.configPrettyPrint = prettyPrint config }) f case res of Right out -> do verbosePut config $ "Compiled " ++ hsRelativePath f