embeddock 0.1.0.0 → 0.1.0.1
raw patch · 2 files changed
+12/−7 lines, 2 files
Files
- embeddock.cabal +9/−2
- src/main.hs +3/−5
embeddock.cabal view
@@ -2,14 +2,16 @@ -- documentation, see http://haskell.org/cabal/users-guide/ name: embeddock-version: 0.1.0.0-synopsis: In Haddock documentation embed the values from the same module+version: 0.1.0.1+synopsis: Embed the values in scope in the haddock documentation of the module description: embeddock is a Haskell source-code preprocessor. It allows you to embed computer-generated values in the documentation. homepage: https://github.com/nushio3/embeddock+bug-reports: https://github.com/nushio3/embeddock/issues+ license: BSD3 license-file: LICENSE author: Takayuki Muranushi@@ -28,3 +30,8 @@ , her-lexer >= 0.1.1 , MissingH >= 1.2 , process >= 0.9+++Source-Repository head+ Type: git+ Location: https://github.com/nushio3/embeddock
src/main.hs view
@@ -67,9 +67,9 @@ seedEmbed :: Tok -> Tok seedEmbed (Com str) = Com $ foldl- (\str e -> replace (printf "%s(%s)" embedKey e)- (printf "%s%s%s" openKey e closeKey)- str)+ (\str' e -> replace (printf "%s(%s)" embedKey e)+ (printf "%s%s%s" openKey e closeKey)+ str') str embeds seedEmbed x = x @@ -103,8 +103,6 @@ when (not isEmbedLoop) $ do- print parsedSrc- print embedKey writeFile runnerFn $ destContent ++ "\n" ++ quineMain (_, hOut, _, _) <- runInteractiveCommand $ printf "runhaskell %s %s" (unwords runhaskellArgs) runnerFn