From ffb7f661a99e5b490e8f53697cb3ebe021aa6121 Mon Sep 17 00:00:00 2001
From: Mighty Byte <mightybyte@gmail.com>
Date: Sun, 28 Nov 2010 10:31:15 -0500
Subject: [PATCH] Got rid of monads-fd.

---
 snap-server.cabal                              | 2 +-
 src/Snap/Internal/Http/Parser.hs               | 2 +-
 src/Snap/Internal/Http/Server/LibevBackend.hs  | 2 +-
 src/Snap/Internal/Http/Server/SimpleBackend.hs | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/snap-server.cabal b/snap-server.cabal
index 7fb79f7d..2858845d 100644
--- a/snap-server.cabal
+++ b/snap-server.cabal
@@ -131,7 +131,7 @@ Library
     enumerator == 0.4.*,
     filepath,
     MonadCatchIO-transformers >= 0.2.1 && < 0.3,
-    monads-fd >= 0.1.0.4 && <0.2,
+    mtl == 2.0.*,
     murmur-hash >= 0.1 && < 0.2,
     network == 2.2.1.*,
     old-locale,
diff --git a/src/Snap/Internal/Http/Parser.hs b/src/Snap/Internal/Http/Parser.hs
index b032e841..61652969 100644
--- a/src/Snap/Internal/Http/Parser.hs
+++ b/src/Snap/Internal/Http/Parser.hs
@@ -20,7 +20,7 @@ module Snap.Internal.Http.Parser
 import             Control.Applicative
 import             Control.Arrow (second)
 import             Control.Monad (liftM)
-import "monads-fd" Control.Monad.Trans
+import             Control.Monad.Trans
 import             Data.Attoparsec hiding (many, Result(..))
 import             Data.Attoparsec.Enumerator
 import             Data.Bits
diff --git a/src/Snap/Internal/Http/Server/LibevBackend.hs b/src/Snap/Internal/Http/Server/LibevBackend.hs
index ec7e3ba4..006f7bc3 100644
--- a/src/Snap/Internal/Http/Server/LibevBackend.hs
+++ b/src/Snap/Internal/Http/Server/LibevBackend.hs
@@ -34,7 +34,7 @@ libEvEventLoop _ _ _ _ = throwIO $ LibevException "libev event loop is not suppo
 import             Control.Concurrent hiding (yield)
 import             Control.Exception
 import             Control.Monad
-import "monads-fd" Control.Monad.Trans
+import             Control.Monad.Trans
 import             Data.ByteString (ByteString)
 import             Data.ByteString.Internal (c2w)
 import qualified   Data.ByteString as S
diff --git a/src/Snap/Internal/Http/Server/SimpleBackend.hs b/src/Snap/Internal/Http/Server/SimpleBackend.hs
index 04256f74..45548714 100644
--- a/src/Snap/Internal/Http/Server/SimpleBackend.hs
+++ b/src/Snap/Internal/Http/Server/SimpleBackend.hs
@@ -12,7 +12,7 @@ module Snap.Internal.Http.Server.SimpleBackend
   ) where
 
 ------------------------------------------------------------------------------
-import "monads-fd" Control.Monad.Trans
+import           Control.Monad.Trans
 
 import           Control.Concurrent hiding (yield)
 import           Control.Exception