marxup 3.0.0 → 3.0.0.1

raw patch · 2 files changed

+27/−1 lines, 2 files

Files

Config.hs +25/−0
marxup.cabal +2/−1

+ Config.hs view

@@ -0,0 +1,25 @@+{-# LANGUAGE OverloadedStrings #-}+module Config where++import Data.Configurator+import Data.Configurator.Types (Value (..),Configured (..))+import System.IO.Unsafe+import Data.Traversable+import Control.Applicative++data List a = L [a]++instance Configured a => Configured (List a) where+   convert (List vs) = L <$> traverse convert vs+   convert _ = Nothing++antiQuoteStrings :: [String]+quoteStrings :: [(String,String)]++(antiQuoteStrings,quoteStrings) = unsafePerformIO $ do+    cfg <- load [Optional ".marxup"]++    L aq <- lookupDefault (L ["@"]) cfg "antiQuotes"+    L q  <- lookupDefault (L [("«","»")]) cfg "quotes"++    return (aq,q)

marxup.cabal view

@@ -1,5 +1,5 @@ name:           marxup-version:        3.0.0+version:        3.0.0.1 category:       Text synopsis:       Markup language preprocessor for Haskell description:@@ -34,6 +34,7 @@   build-depends: pretty==1.1.*   build-depends: parsek==1.*   build-depends: dlist>=0.7+  other-modules: Config    library   extensions: FlexibleInstances, TypeSynonymInstances, GADTs