Permalink
Browse files

Get the last failing tests working

  • Loading branch information...
1 parent f7dd25b commit eb46349d636dbb4b163a57d6d4e76ce19450f1cb @mightybyte mightybyte committed Nov 7, 2012
@@ -6,7 +6,7 @@
module Application where
------------------------------------------------------------------------------
-import Control.Lens.Template
+import Control.Lens
import Snap.Snaplet
import Snap.Snaplet.Heist
import Snap.Snaplet.Auth
@@ -7,8 +7,10 @@
>
> data Bar = Bar
>
+> fooInit :: SnapletInit b Foo
> fooInit = makeSnaplet "foo" "Foo snaplet" Nothing $ do
> return Foo
>
+> barInit :: SnapletLens b Foo -> SnapletInit b Bar
> barInit h = makeSnaplet "bar" "Bar snaplet" Nothing $ do
> return Bar
@@ -155,10 +155,10 @@ setupFilesystem (Just getSnapletDataDir) targetDir = do
where
doCopy srcRoot targetRoot filename = do
createDirectoryIfMissing True directory
- copyFile filename to
+ copyFile filename toDir
where
- to = targetRoot </> makeRelative srcRoot filename
- directory = dropFileName to
+ toDir = targetRoot </> makeRelative srcRoot filename
+ directory = dropFileName toDir
------------------------------------------------------------------------------

0 comments on commit eb46349

Please sign in to comment.