@@ -42,15 +42,16 @@ rulesTest = withTestStore $ \store -> do
42 -- Test that we have some identifiers and that the routes work out
42 -- Test that we have some identifiers and that the routes work out
43 assert $ all (`S.member` identifiers) expected
43 assert $ all (`S.member` identifiers) expected
44 Just "example.html" @=? runRoutes routes "example.md"
44 Just "example.html" @=? runRoutes routes "example.md"
45− Just "example.md" @=? runRoutes routes (raw "example.md")
45+ Just "example.md" @=? runRoutes routes (sv "raw" "example.md")
46+ Just "example.md" @=? runRoutes routes (sv "nav" "example.md")
47− raw = setVersion (Just "raw")
48+ sv g = setVersion (Just g)
48 expected =
49 expected =
49 [ "example.md"
50 [ "example.md"
50 , "russian.md"
51 , "russian.md"
51− , raw "example.md"
52+ , sv "raw" "example.md"
52− , raw "russian.md"
53+ , sv "raw" "russian.md"
53− , setVersion (Just "nav") "example.md"
54+ , sv "nav" "example.md"