Browse files

Remove debug messages

  • Loading branch information...
1 parent ca76ba3 commit adf65d85115616ca137279f941c6c7384c836183 @bergmark bergmark committed Mar 19, 2013
Showing with 0 additions and 7 deletions.
  1. +0 −7 src/Snap/Snaplet/Fay/Internal.hs
View
7 src/Snap/Snaplet/Fay/Internal.hs
@@ -52,14 +52,7 @@ compileFile config f = do
putStrLn $ "snaplet-fay: Could not find: " ++ hsRelativePath f
return NotFound
else do
- print config
- putStrLn ""
- let cfg' = F.addConfigPackages (packages config) $ F.addConfigDirectoryIncludePaths (includeDirs config) $ def { F.configPrettyPrint = prettyPrint config }
- print cfg'
- putStrLn ""
f' <- canonicalizePath f
- print f'
- putStrLn ""
res <- flip F.compileFile f' $ F.addConfigPackages (packages config) $
F.addConfigDirectoryIncludePaths (includeDirs config) $
def { F.configPrettyPrint = prettyPrint config

0 comments on commit adf65d8

Please sign in to comment.