646b892680
Some checks failed
Periodic Merges (6h) / master → staging-nixos (push) Failing after 12m50s
Periodic Merges (6h) / master → staging-next (push) Failing after 12m54s
Periodic Merges (24h) / merge-base(master,staging) → haskell-updates (push) Failing after 11m54s
Periodic Merges (6h) / staging-next → staging (push) Failing after 12m13s
Periodic Merges (24h) / staging-next-25.05 → staging-25.05 (push) Failing after 13m24s
Periodic Merges (24h) / release-25.05 → staging-next-25.05 (push) Failing after 14m28s
24 lines
585 B
Diff
24 lines
585 B
Diff
diff --git a/Cheapskate/Parse.hs b/Cheapskate/Parse.hs
|
|
index b90d8e5..2925132 100644
|
|
--- a/Cheapskate/Parse.hs
|
|
+++ b/Cheapskate/Parse.hs
|
|
@@ -1,4 +1,5 @@
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
+{-# LANGUAGE CPP #-}
|
|
module Cheapskate.Parse (
|
|
markdown
|
|
) where
|
|
@@ -21,6 +22,12 @@ import Control.Applicative
|
|
import qualified Data.Map as M
|
|
import Data.List (intercalate)
|
|
|
|
+#if MIN_VERSION_mtl(2, 3, 0)
|
|
+import Control.Monad (guard, unless, replicateM)
|
|
+#else
|
|
+#endif
|
|
+
|
|
+
|
|
import Debug.Trace
|
|
|
|
-- | Parses the input as a markdown document. Note that 'Doc' is an instance
|