fixup! Introduce internal module.

Author: qnikst

src/Network/Transport/InMemory.hs

@@ -16,5 +16,5 @@ import Network.Transport.InMemory.Debug
 -- Only a single transport should be created per Haskell process
 -- (threads can, and should, create their own endpoints though).
 createTransport :: IO Transport
-createTransport = fst <$> createTransportExposeInternals
+createTransport = fmap fst createTransportExposeInternals
 

src/Network/Transport/InMemory/Internal.hs

@@ -43,7 +43,7 @@ import qualified Data.ByteString.Char8 as BSC (pack)
 import Data.Accessor (Accessor, accessor, (^.), (^=), (^:))
 import qualified Data.Accessor.Container as DAC (mapMaybe)
 import Data.Typeable (Typeable)
-import Prelude
+import Prelude hiding (foldr)
 
 data TransportState
   = TransportValid {-# UNPACK #-} !ValidTransportState