pyrox.dev
1diff --git a/Cheapskate/Parse.hs b/Cheapskate/Parse.hs
2index b90d8e5..2925132 100644
3--- a/Cheapskate/Parse.hs
4+++ b/Cheapskate/Parse.hs
5@@ -1,4 +1,5 @@
6 {-# LANGUAGE OverloadedStrings #-}
7+{-# LANGUAGE CPP #-}
8 module Cheapskate.Parse (
9 markdown
10 ) where
11@@ -21,6 +22,12 @@ import Control.Applicative
12 import qualified Data.Map as M
13 import Data.List (intercalate)
14
15+#if MIN_VERSION_mtl(2, 3, 0)
16+import Control.Monad (guard, unless, replicateM)
17+#else
18+#endif
19+
20+
21 import Debug.Trace
22
23 -- | Parses the input as a markdown document. Note that 'Doc' is an instance