papillon 0.0.88 → 0.1.0.0
raw patch · 3 files changed
+20/−4 lines, 3 filesdep +bytestringdep ~basedep ~template-haskell
Dependencies added: bytestring
Dependency ranges changed: base, template-haskell
Files
- papillon.cabal +8/−4
- src/Text/Papillon.hs +2/−0
- src/Text/Papillon/Papillon.hs +10/−0
papillon.cabal view
@@ -2,7 +2,7 @@ cabal-version: >= 1.8 name: papillon-version: 0.0.88+version: 0.1.0.0 stability: Experimental author: Yoshikuni Jujo <PAF01143@nifty.ne.jp> maintainer: Yoshikuni Jujo <PAF01143@nifty.ne.jp>@@ -28,7 +28,7 @@ source-repository this type: git location: git://github.com/YoshikuniJujo/papillon.git- tag: 0.0.88+ tag: 0.1.0.0 library hs-source-dirs: src@@ -38,12 +38,16 @@ Text.Papillon.Papillon, Text.Papillon.Papillon, Text.Papillon.List- build-depends: base > 3 && < 5, template-haskell, monads-tf, transformers+ build-depends:+ base > 3 && < 5, template-haskell, monads-tf, transformers,+ bytestring == 0.10.* ghc-options: -Wall executable papillon hs-source-dirs: bin main-is: papillon.hs other-modules: Class- build-depends: directory, filepath, base > 3 && < 5, template-haskell, monads-tf, transformers, papillon+ build-depends:+ directory, filepath, base > 3 && < 5, template-haskell,+ monads-tf, transformers, papillon ghc-options: -Wall
src/Text/Papillon.hs view
@@ -23,6 +23,8 @@ import Text.Papillon.Core import Language.Haskell.TH.Quote +import qualified Data.ByteString.Char8 as BSC+ papillon :: QuasiQuoter papillon = QuasiQuoter { quoteExp = undefined,
src/Text/Papillon/Papillon.hs view
@@ -17,6 +17,9 @@ import Control.Monad.Trans.Error (Error(..)) import "monads-tf" Control.Monad.Error import "monads-tf" Control.Monad.Identity++import qualified Data.ByteString.Char8 as BSC+ data ParseError pos drv = ParseError {peCode :: String, peMessage :: String,@@ -60,3 +63,10 @@ listUpdatePos _ (CharPos (y, x)) = CharPos (y, x + 1) runError :: forall err a . ErrorT err Identity a -> Either err a runError = runIdentity . runErrorT++instance Source BSC.ByteString where+ type Token BSC.ByteString = Char+ data Pos BSC.ByteString = NoPos+ getToken = BSC.uncons+ initialPos = NoPos+ updatePos _ _ = NoPos