ad2ac14 · rowtype-yoga/purescript-native

git.iko.soy/rowtype-yoga/purescript-native

Use strict writers to avoid leaking memory

commitad2ac14b8417497a9d4056e6763ef1887180c1db authorGary Burgess <gary.burgess@gmail.com> dateSun 23 Aug 2015, 00:50 (11 years ago) parent7e8e8ca

8 files changed+8−8

compare with golang

unifiedsplit

psc/Main.hs+1−1 psci/PSCi.hs+1−1 psci/tests/Main.hs+1−1 src/Language/PureScript/Docs/ParseAndDesugar.hs+1−1 src/Language/PureScript/Make.hs+1−1 src/Language/PureScript/Publish.hs+1−1 src/Language/PureScript/TypeChecker/Monad.hs+1−1 tests/Main.hs+1−1

psc/Main.hs+1−1

@@ -22,7 +22,7 @@ module Main where

2222import Control.Applicative

2323import Control.Monad

2424import Control.Monad.Error.Class (MonadError(..))

25−import Control.Monad.Writer

25+import Control.Monad.Writer.Strict

2626

2727import Data.Version (showVersion)

2828import qualified Data.Map as M

psci/PSCi.hs+1−1

@@ -36,7 +36,7 @@ import Control.Monad.Trans.Except (runExceptT)

3636import Control.Monad.Trans.Maybe (MaybeT(..), runMaybeT)

3737import Control.Monad.Trans.State.Strict

3838import Control.Monad.IO.Class (liftIO)

39−import Control.Monad.Writer (runWriter)

39+import Control.Monad.Writer.Strict (runWriter)

4040import qualified Control.Monad.Trans.State.Lazy as L

4141

4242import Options.Applicative as Opts

psci/tests/Main.hs+1−1

@@ -5,7 +5,7 @@ module Main where

55import Control.Monad.Trans.State.Strict (runStateT)

66import Control.Monad (when, forM)

77import Control.Applicative

8−import Control.Monad.Writer (runWriterT)

8+import Control.Monad.Writer.Strict (runWriterT)

99import Control.Monad.Trans.Except (runExceptT)

1010

1111import Data.List (sort)

src/Language/PureScript/Docs/ParseAndDesugar.hs+1−1

@@ -11,7 +11,7 @@ import Control.Monad

1111import Control.Applicative

1212

1313import Control.Monad.Trans.Except

14−import Control.Monad.Writer (WriterT(), runWriterT)

14+import Control.Monad.Writer.Strict (WriterT(), runWriterT)

1515import Control.Monad.Error.Class (MonadError(..))

1616import Control.Monad.IO.Class (MonadIO(..))

1717

src/Language/PureScript/Make.hs+1−1

@@ -41,7 +41,7 @@ import Control.Monad

4141import Control.Monad.Error.Class (MonadError(..))

4242import Control.Monad.Trans.Except

4343import Control.Monad.Reader

44−import Control.Monad.Writer

44+import Control.Monad.Writer.Strict

4545import Control.Monad.Supply

4646

4747import Data.Function (on)

src/Language/PureScript/Publish.hs+1−1

@@ -39,7 +39,7 @@ import Control.Exception (catch, try)

3939import Control.Monad.Trans.Maybe (MaybeT(..), runMaybeT)

4040import Control.Monad.Trans.Except

4141import Control.Monad.Error.Class (MonadError(..))

42−import Control.Monad.Writer

42+import Control.Monad.Writer.Strict

4343

4444import System.Directory (doesFileExist, findExecutable)

4545import System.Process (readProcess)

src/Language/PureScript/TypeChecker/Monad.hs+1−1

@@ -24,7 +24,7 @@ import qualified Data.Map as M

2424import Control.Applicative

2525import Control.Monad.State

2626import Control.Monad.Unify

27−import Control.Monad.Writer

27+import Control.Monad.Writer.Strict

2828import Control.Monad.Error.Class (MonadError(..))

2929import Control.Monad.Trans.Except

3030

tests/Main.hs+1−1

@@ -53,7 +53,7 @@ import Control.Applicative

5353import Control.Arrow ((>>>))

5454

5555import Control.Monad.Reader

56−import Control.Monad.Writer

56+import Control.Monad.Writer.Strict

5757import Control.Monad.Trans.Maybe

5858import Control.Monad.Trans.Except

5959import Control.Monad.Error.Class