Better compatability for spago source

csicar · Mar 3, 2021 · a634551 · a634551
1 parent 2475ea1
commit a634551
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/app/Main.hs b/app/Main.hs
@@ -41,7 +41,7 @@ data PurepurOptions = PurepurOptions
 
 docgen :: PurepurOptions -> IO ()
 docgen p@(PurepurOptions moutput compileOutput inputGlob compileInputGlob) = do
-  compileInput <- concat <$> mapM glob compileInputGlob
+  compileInput <- concat <$> mapM glob (concatMap lines compileInputGlob)
   input <- concat <$> mapM glob inputGlob
 
   when (null compileInput) $ do

diff --git a/src/Purepur/Generate.hs b/src/Purepur/Generate.hs
@@ -65,7 +65,8 @@ generateTestFromMarkdown title (Just comment) = do
       error $ "unused expression: " <> show expr
     commandsToDocument title [] = mempty
     commandsToDocument title (ExpectedOutput str: rest) = 
-      error $ "Could not translate doctest comment: Found expected output " <> show str <> ", but no matching command."
+      error $ "Could not translate doctest comment: Found expected output " 
+        <> show str <> ", but no matching command."
         <> " Maybe you missed a `>`? "
 
 generateTestFromMarkdownFile :: (FilePath, T.Text) -> Except ParseError (PurepurDocument, P.ModuleName)