Better compatability for spago source

Author: csicar

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

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)