Make Fixtures work

alexbiehl · harpocrates · commit 4bfd611531ac · 2018-03-26T22:36:00.000-07:00
diff --git a/haddock-library/fixtures/Fixtures.hs b/haddock-library/fixtures/Fixtures.hs
@@ -102,7 +102,7 @@ acceptFixtures = traverse_ $ \(Fixture i o) -> do
     writeFile o actual
 
 parseString :: String -> Doc String
-parseString = Parse.toRegular . _doc . Parse.parseParas
+parseString = Parse.toRegular . _doc . Parse.parseParas Nothing
 
 data Cmd = CmdRun | CmdAccept | CmdList
 
