From df7ec92f1853c94ee37bb203c9253a57ce1dfc9a Mon Sep 17 00:00:00 2001
From: nzeh <nzeh@cs.dal.ca>
Date: Tue, 24 Mar 2009 01:16:22 +0100
Subject: Replaced inside with between

Parsers.inside does the same as Text.Parsec.Combinators.between.
So I switched to using this standard function.

darcs-hash:20090324001622-c6b6b-11ed4dffcec239a98fd2a2caf7a4f38c725144b0.gz
---
 Parsers.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/Parsers.hs b/Parsers.hs
index e8e0be5..c87aa99 100644
--- a/Parsers.hs
+++ b/Parsers.hs
@@ -64,7 +64,7 @@ templateStringParser c = do
 templateCommandParser :: Config -> Parser String
 templateCommandParser c =
   let chr = char . head . sepChar
-  in  inside (chr c) (allTillSep c) (chr c)
+  in  between (chr c) (chr c) (allTillSep c) 
 
 -- | Combines the template parsers
 templateParser :: Config -> Parser [(String,String,String)]
@@ -96,6 +96,3 @@ tryString = try . string
 
 allTillSep :: Config -> Parser String
 allTillSep = many . noneOf . sepChar
-
-inside :: Parser a -> Parser b -> Parser c -> Parser b
-inside pa pb pc = pa >> pb >>= \r -> pc >> return r
-- 
cgit v1.2.3