semdoc 0.1.2 → 0.1.3

raw patch · 4 files changed

+17/−13 lines, 4 filesdep +data-default-instances-basedep ~pandocdep ~pandoc-types

Dependencies added: data-default-instances-base

Dependency ranges changed: pandoc, pandoc-types

Files

• semdoc.cabal +9/−5
• src/Text/Semdoc/EvalExpr.hs +2/−1
• src/Text/Semdoc/Processor.hs +1/−2
• src/Text/Semdoc/Util.hs +5/−5

@@ -1,5 +1,5 @@ name:                semdoc-version:             0.1.2+version:             0.1.3 synopsis:            Evaluate code snippets in Literate Haskell. description:         Evaluate code snippets in Literate Haskell. homepage:            https://toktok.github.io/semdoc@@ -34,12 +34,16 @@     , Glob     , containers     , data-default-class-    , ghc             >= 7.6.3 && <= 7.10.3+    , data-default-instances-base+    , ghc                       >= 7.6.3 && <= 7.10.3     , ghc-paths     , groom     , mtl-    , pandoc          >= 1.7-    , pandoc-types    <= 1.16+    -- pandoc < 1.16 doesn't write tables in Markdown correctly and doesn't+    -- respect the 'no-tex-ligatures' option in Markdown.+    , pandoc                    >= 1.16+    -- pandoc-types 1.17 depends on aeson 1.1, which requires ghc > 7.8.4.+    , pandoc-types              <  1.17     , regex-tdfa  executable semdoc@@ -47,7 +51,7 @@   ghc-options:       -Wall   build-depends:-      base            >= 4 && < 5+      base                      >= 4 && < 5     , semdoc   hs-source-dirs:      tools   default-language:    Haskell2010

@@ -3,6 +3,7 @@  import           Control.Applicative  ((<$>)) import           Control.Monad        (join)+import qualified Data.Maybe           as Maybe import           Debugger             (showTerm) import           DynFlags             (ExtensionFlag (..), PkgConfRef (..),                                        xopt_set)@@ -71,7 +72,7 @@     mkImportDecl (m, n) =       IIDecl (simpleImportDecl $ mkModuleName m)         { ideclAs = fmap mkModuleName n-        , ideclQualified = n /= Nothing+        , ideclQualified = Maybe.isJust n         }  

@@ -33,8 +33,7 @@   eraseCodeBlocks :: Block -> Block-eraseCodeBlocks (CodeBlock ("", ["sourceCode", "literate", "haskell"], []) _) =-  Null+eraseCodeBlocks (CodeBlock ("", ["sourceCode", "literate", "haskell"], []) _) = Null eraseCodeBlocks x = x  

@@ -9,12 +9,12 @@   let     go :: Char -> String -> [String]     go m s' = case break p s' of-      (b', [])     -> [ m:b' ]-      (b', (x:xs)) -> ( m:b' ) : go x xs+      (b', [])   -> [m:b']+      (b', x:xs) -> (m:b') : go x xs   in case break p s of-    (b,  [])    -> [ b ]-    ([], (h:t)) -> go h t-    (b,  (h:t)) -> b : go h t+    (b,  [])  -> [b]+    ([], h:t) -> go h t+    (b,  h:t) -> b : go h t   splitCamel :: String -> [String]