Movatterモバイル変換

moduleBinaryParser.Prelude(moduleExports,mapLeft,joinMap,)whereimportControl.ApplicativeasExportsimportControl.ArrowasExportshiding(first,second)importControl.CategoryasExportsimportControl.ConcurrentasExportsimportControl.ExceptionasExportsimportControl.MonadasExportshiding(fail,forM,forM_,mapM,mapM_,msum,sequence,sequence_)importControl.Monad.Cont.ClassasExportsimportControl.Monad.Error.ClassasExports(MonadError(..))importControl.Monad.FailasExportsimportControl.Monad.FixasExportshiding(fix)importControl.Monad.IO.ClassasExportsimportControl.Monad.Reader.ClassasExportsimportControl.Monad.STasExportsimportControl.Monad.State.ClassasExportsimportControl.Monad.Trans.ClassasExportsimportControl.Monad.Trans.ExceptasExports(Except,ExceptT(ExceptT),catchE,except,mapExcept,mapExceptT,runExcept,runExceptT,throwE,withExcept,withExceptT)importControl.Monad.Trans.ReaderasExports(Reader,ReaderT(ReaderT),mapReader,mapReaderT,runReader,runReaderT,withReader,withReaderT)importControl.Monad.Trans.State.StrictasExports(State,StateT(StateT),evalState,evalStateT,execState,execStateT,mapState,mapStateT,runState,runStateT,withState,withStateT)importControl.Monad.Trans.Writer.StrictasExports(Writer,WriterT(..),execWriter,execWriterT,mapWriter,mapWriterT,runWriter)importControl.Monad.Writer.ClassasExportsimportData.BifunctorasExportsimportData.BitsasExportsimportData.BoolasExportsimportData.ByteStringasExports(ByteString)importData.CharasExportsimportData.CoerceasExportsimportData.ComplexasExportsimportData.DataasExportsimportData.DynamicasExportsimportData.EitherasExportsimportData.FixedasExportsimportData.FoldableasExportsimportData.FunctionasExportshiding(id,(.))importData.FunctorasExportsimportData.Functor.IdentityasExportsimportData.IORefasExportsimportData.IntasExportsimportData.IxasExportsimportData.ListasExportshiding(all,and,any,concat,concatMap,elem,find,foldl,foldl',foldl1,foldr,foldr1,isSubsequenceOf,mapAccumL,mapAccumR,maximum,maximumBy,minimum,minimumBy,notElem,or,product,sortOn,sum,uncons,unzip)importData.List.NonEmptyasExports(NonEmpty(..))importData.MaybeasExportsimportData.MonoidasExportshiding(First(..),Last(..),(<>))importData.OrdasExportsimportData.ProxyasExportsimportData.RatioasExportsimportData.STRefasExportsimportData.SemigroupasExportsimportData.StringasExportsimportData.TextasExports(Text)importData.TraversableasExportsimportData.TupleasExportsimportData.UniqueasExportsimportData.VersionasExportsimportData.VoidasExportsimportData.WordasExportsimportDebug.TraceasExportsimportForeign.ForeignPtrasExportsimportForeign.PtrasExportsimportForeign.StablePtrasExportsimportForeign.StorableasExportshiding(alignment,sizeOf)importGHC.ConcasExportshiding(orElse,threadWaitRead,threadWaitReadSTM,threadWaitWrite,threadWaitWriteSTM,withMVar)importGHC.ExtsasExports(IsList(Item,fromList),groupWith,inline,lazy,sortWith)importGHC.GenericsasExports(Generic,Generic1)importGHC.IO.ExceptionasExportsimportNumericasExportsimportSystem.EnvironmentasExportsimportSystem.ExitasExportsimportSystem.IOasExportsimportSystem.IO.ErrorasExportsimportSystem.IO.UnsafeasExportsimportSystem.MemasExportsimportSystem.Mem.StableNameasExportsimportSystem.TimeoutasExportsimportText.PrintfasExports(hPrintf,printf)importText.ReadasExports(Read(..),readEither,readMaybe)importUnsafe.CoerceasExportsimportPreludeasExportshiding(all,and,any,concat,concatMap,elem,fail,foldl,foldl1,foldr,foldr1,id,mapM,mapM_,maximum,minimum,notElem,or,product,sequence,sequence_,sum,unzip,(.)){-# INLINEmapLeft#-}mapLeft::(a->b)->Eitherax->EitherbxmapLeft :: forall a b x. (a -> b) -> Either a x -> Either b xmapLefta -> bf=(a -> Either b x) -> (x -> Either b x) -> Either a x -> Either b xforall a c b. (a -> c) -> (b -> c) -> Either a b -> ceither(b -> Either b xforall a b. a -> Either a bLeft(b -> Either b x) -> (a -> b) -> a -> Either b xforall b c a. (b -> c) -> (a -> b) -> a -> cforall {k} (cat :: k -> k -> *) (b :: k) (c :: k) (a :: k).Category cat =>cat b c -> cat a b -> cat a c.a -> bf)x -> Either b xforall a b. b -> Either a bRightjoinMap::(Monadm)=>(a->mb)->ma->mbjoinMap :: forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m bjoinMapa -> m bf=m (m b) -> m bforall (m :: * -> *) a. Monad m => m (m a) -> m ajoin(m (m b) -> m b) -> (m a -> m (m b)) -> m a -> m bforall b c a. (b -> c) -> (a -> b) -> a -> cforall {k} (cat :: k -> k -> *) (b :: k) (c :: k) (a :: k).Category cat =>cat b c -> cat a b -> cat a c.(a -> m b) -> m a -> m (m b)forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m rliftMa -> m bf