markup 0.0.6 → 0.0.6.1

raw patch · 2 files changed

+1/−18 lines, 2 files

Files

• markup.cabal +1/−1
• src/Data/Markup/Types.hs +0/−17

@@ -1,5 +1,5 @@ Name:                   markup-Version:                0.0.6+Version:                0.0.6.1 Author:                 Athan Clark <athan.clark@gmail.com> Maintainer:             Athan Clark <athan.clark@gmail.com> License:                MIT

@@ -61,12 +61,6 @@   return = InlineMarkupM   x >>= f = f $ runInlineMarkupM x -instance Monad w => Monoid (InlineMarkupM (w a)) where-  x `mappend` y = InlineMarkupM $ do-    runInlineMarkupM x-    runInlineMarkupM y-- newtype HostedMarkupM a = HostedMarkupM {runHostedMarkupM :: a}   deriving (Functor) @@ -81,12 +75,6 @@   return = HostedMarkupM   x >>= f = f $ runHostedMarkupM x -instance Monad w => Monoid (HostedMarkupM (w a)) where-  x `mappend` y = HostedMarkupM $ do-    runHostedMarkupM x-    runHostedMarkupM y-- newtype LocalMarkupM a = LocalMarkupM {runLocalMarkupM :: a}   deriving (Functor) @@ -100,8 +88,3 @@ instance Monad LocalMarkupM where   return = LocalMarkupM   x >>= f = f $ runLocalMarkupM x--instance Monad w => Monoid (LocalMarkupM (w a)) where-  x `mappend` y = LocalMarkupM $ do-    runLocalMarkupM x-    runLocalMarkupM y