Inline `prelude.inc`
Taylor Fausak
GitHub
parent
19a092b862
commit
1e7a94e72e
|
|
@ -8,8 +8,7 @@
|
||||||
# Specify additional command line arguments
|
# Specify additional command line arguments
|
||||||
|
|
||||||
- arguments:
|
- arguments:
|
||||||
[ "--cpp-include=srcinc"
|
[ "--language=GADTs"
|
||||||
, "--language=GADTs"
|
|
||||||
, "--language=LambdaCase"
|
, "--language=LambdaCase"
|
||||||
, "--language=MultiWayIf"
|
, "--language=MultiWayIf"
|
||||||
, "--language=KindSignatures"
|
, "--language=KindSignatures"
|
||||||
|
|
|
||||||
|
|
@ -26,7 +26,6 @@ extra-doc-files: {
|
||||||
}
|
}
|
||||||
extra-source-files: {
|
extra-source-files: {
|
||||||
src-literatetests/*.blt
|
src-literatetests/*.blt
|
||||||
srcinc/prelude.inc
|
|
||||||
}
|
}
|
||||||
|
|
||||||
source-repository head {
|
source-repository head {
|
||||||
|
|
@ -49,8 +48,6 @@ library {
|
||||||
Haskell2010
|
Haskell2010
|
||||||
hs-source-dirs:
|
hs-source-dirs:
|
||||||
src
|
src
|
||||||
include-dirs:
|
|
||||||
srcinc
|
|
||||||
exposed-modules: {
|
exposed-modules: {
|
||||||
Language.Haskell.Brittany
|
Language.Haskell.Brittany
|
||||||
Language.Haskell.Brittany.Main
|
Language.Haskell.Brittany.Main
|
||||||
|
|
@ -206,7 +203,6 @@ test-suite unittests
|
||||||
other-modules: TestUtils
|
other-modules: TestUtils
|
||||||
AsymptoticPerfTests
|
AsymptoticPerfTests
|
||||||
hs-source-dirs: src-unittests
|
hs-source-dirs: src-unittests
|
||||||
include-dirs: srcinc
|
|
||||||
default-extensions: {
|
default-extensions: {
|
||||||
CPP
|
CPP
|
||||||
|
|
||||||
|
|
@ -278,7 +274,6 @@ test-suite littests
|
||||||
main-is: Main.hs
|
main-is: Main.hs
|
||||||
other-modules:
|
other-modules:
|
||||||
hs-source-dirs: src-literatetests
|
hs-source-dirs: src-literatetests
|
||||||
include-dirs: srcinc
|
|
||||||
default-extensions: {
|
default-extensions: {
|
||||||
CPP
|
CPP
|
||||||
|
|
||||||
|
|
@ -320,7 +315,6 @@ test-suite libinterfacetests
|
||||||
main-is: Main.hs
|
main-is: Main.hs
|
||||||
other-modules:
|
other-modules:
|
||||||
hs-source-dirs: src-libinterfacetests
|
hs-source-dirs: src-libinterfacetests
|
||||||
include-dirs: srcinc
|
|
||||||
default-extensions: {
|
default-extensions: {
|
||||||
FlexibleContexts
|
FlexibleContexts
|
||||||
FlexibleInstances
|
FlexibleInstances
|
||||||
|
|
|
||||||
|
|
@ -8,7 +8,51 @@ where
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#include "prelude.inc"
|
import Language.Haskell.Brittany.Internal.Prelude
|
||||||
|
import Language.Haskell.Brittany.Internal.PreludeUtils
|
||||||
|
import qualified Control.Monad.Reader.Class as Reader.Class
|
||||||
|
import qualified Control.Monad.RWS.Class as RWS.Class
|
||||||
|
import qualified Control.Monad.State.Class as State.Class
|
||||||
|
import qualified Control.Monad.Trans.Except as ExceptT
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
|
||||||
|
import qualified Control.Monad.Trans.State as State
|
||||||
|
import qualified Control.Monad.Trans.State.Lazy as StateL
|
||||||
|
import qualified Control.Monad.Trans.State.Strict as StateS
|
||||||
|
import qualified Control.Monad.Writer.Class as Writer.Class
|
||||||
|
import qualified Data.Bool as Bool
|
||||||
|
import qualified Data.ByteString
|
||||||
|
import qualified Data.ByteString as ByteString
|
||||||
|
import qualified Data.ByteString.Char8
|
||||||
|
import qualified Data.ByteString.Lazy as ByteStringL
|
||||||
|
import qualified Data.Coerce
|
||||||
|
import qualified Data.Data
|
||||||
|
import qualified Data.Either
|
||||||
|
import qualified Data.Foldable
|
||||||
|
import qualified Data.Foldable as Foldable
|
||||||
|
import qualified Data.IntMap.Lazy as IntMapL
|
||||||
|
import qualified Data.IntMap.Strict as IntMapS
|
||||||
|
import qualified Data.List.Extra
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
import qualified Data.Maybe
|
||||||
|
import qualified Data.Semigroup as Semigroup
|
||||||
|
import qualified Data.Sequence as Seq
|
||||||
|
import qualified Data.Set as Set
|
||||||
|
import qualified Data.Strict.Maybe as Strict
|
||||||
|
import qualified Data.Text as Text
|
||||||
|
import qualified Data.Text.Encoding as Text.Encoding
|
||||||
|
import qualified Data.Text.IO as Text.IO
|
||||||
|
import qualified Data.Text.Lazy as TextL
|
||||||
|
import qualified Data.Text.Lazy.Encoding as TextL.Encoding
|
||||||
|
import qualified Data.Text.Lazy.IO as TextL.IO
|
||||||
|
import qualified GHC.OldList as List
|
||||||
|
import qualified Safe as Safe
|
||||||
|
import qualified System.Directory
|
||||||
|
import qualified System.IO
|
||||||
|
import qualified Text.PrettyPrint
|
||||||
|
import qualified Text.PrettyPrint.Annotated
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJ
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJClass
|
||||||
|
|
||||||
import Test.Hspec
|
import Test.Hspec
|
||||||
import Test.Hspec.Runner ( hspecWith
|
import Test.Hspec.Runner ( hspecWith
|
||||||
|
|
|
||||||
|
|
@ -7,7 +7,51 @@ where
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#include "prelude.inc"
|
import Language.Haskell.Brittany.Internal.Prelude
|
||||||
|
import Language.Haskell.Brittany.Internal.PreludeUtils
|
||||||
|
import qualified Control.Monad.Reader.Class as Reader.Class
|
||||||
|
import qualified Control.Monad.RWS.Class as RWS.Class
|
||||||
|
import qualified Control.Monad.State.Class as State.Class
|
||||||
|
import qualified Control.Monad.Trans.Except as ExceptT
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
|
||||||
|
import qualified Control.Monad.Trans.State as State
|
||||||
|
import qualified Control.Monad.Trans.State.Lazy as StateL
|
||||||
|
import qualified Control.Monad.Trans.State.Strict as StateS
|
||||||
|
import qualified Control.Monad.Writer.Class as Writer.Class
|
||||||
|
import qualified Data.Bool as Bool
|
||||||
|
import qualified Data.ByteString
|
||||||
|
import qualified Data.ByteString as ByteString
|
||||||
|
import qualified Data.ByteString.Char8
|
||||||
|
import qualified Data.ByteString.Lazy as ByteStringL
|
||||||
|
import qualified Data.Coerce
|
||||||
|
import qualified Data.Data
|
||||||
|
import qualified Data.Either
|
||||||
|
import qualified Data.Foldable
|
||||||
|
import qualified Data.Foldable as Foldable
|
||||||
|
import qualified Data.IntMap.Lazy as IntMapL
|
||||||
|
import qualified Data.IntMap.Strict as IntMapS
|
||||||
|
import qualified Data.List.Extra
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
import qualified Data.Maybe
|
||||||
|
import qualified Data.Semigroup as Semigroup
|
||||||
|
import qualified Data.Sequence as Seq
|
||||||
|
import qualified Data.Set as Set
|
||||||
|
import qualified Data.Strict.Maybe as Strict
|
||||||
|
import qualified Data.Text as Text
|
||||||
|
import qualified Data.Text.Encoding as Text.Encoding
|
||||||
|
import qualified Data.Text.IO as Text.IO
|
||||||
|
import qualified Data.Text.Lazy as TextL
|
||||||
|
import qualified Data.Text.Lazy.Encoding as TextL.Encoding
|
||||||
|
import qualified Data.Text.Lazy.IO as TextL.IO
|
||||||
|
import qualified GHC.OldList as List
|
||||||
|
import qualified Safe as Safe
|
||||||
|
import qualified System.Directory
|
||||||
|
import qualified System.IO
|
||||||
|
import qualified Text.PrettyPrint
|
||||||
|
import qualified Text.PrettyPrint.Annotated
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJ
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJClass
|
||||||
|
|
||||||
import Test.Hspec
|
import Test.Hspec
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -4,7 +4,51 @@ module Main where
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#include "prelude.inc"
|
import Language.Haskell.Brittany.Internal.Prelude
|
||||||
|
import Language.Haskell.Brittany.Internal.PreludeUtils
|
||||||
|
import qualified Control.Monad.Reader.Class as Reader.Class
|
||||||
|
import qualified Control.Monad.RWS.Class as RWS.Class
|
||||||
|
import qualified Control.Monad.State.Class as State.Class
|
||||||
|
import qualified Control.Monad.Trans.Except as ExceptT
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
|
||||||
|
import qualified Control.Monad.Trans.State as State
|
||||||
|
import qualified Control.Monad.Trans.State.Lazy as StateL
|
||||||
|
import qualified Control.Monad.Trans.State.Strict as StateS
|
||||||
|
import qualified Control.Monad.Writer.Class as Writer.Class
|
||||||
|
import qualified Data.Bool as Bool
|
||||||
|
import qualified Data.ByteString
|
||||||
|
import qualified Data.ByteString as ByteString
|
||||||
|
import qualified Data.ByteString.Char8
|
||||||
|
import qualified Data.ByteString.Lazy as ByteStringL
|
||||||
|
import qualified Data.Coerce
|
||||||
|
import qualified Data.Data
|
||||||
|
import qualified Data.Either
|
||||||
|
import qualified Data.Foldable
|
||||||
|
import qualified Data.Foldable as Foldable
|
||||||
|
import qualified Data.IntMap.Lazy as IntMapL
|
||||||
|
import qualified Data.IntMap.Strict as IntMapS
|
||||||
|
import qualified Data.List.Extra
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
import qualified Data.Maybe
|
||||||
|
import qualified Data.Semigroup as Semigroup
|
||||||
|
import qualified Data.Sequence as Seq
|
||||||
|
import qualified Data.Set as Set
|
||||||
|
import qualified Data.Strict.Maybe as Strict
|
||||||
|
import qualified Data.Text as Text
|
||||||
|
import qualified Data.Text.Encoding as Text.Encoding
|
||||||
|
import qualified Data.Text.IO as Text.IO
|
||||||
|
import qualified Data.Text.Lazy as TextL
|
||||||
|
import qualified Data.Text.Lazy.Encoding as TextL.Encoding
|
||||||
|
import qualified Data.Text.Lazy.IO as TextL.IO
|
||||||
|
import qualified GHC.OldList as List
|
||||||
|
import qualified Safe as Safe
|
||||||
|
import qualified System.Directory
|
||||||
|
import qualified System.IO
|
||||||
|
import qualified Text.PrettyPrint
|
||||||
|
import qualified Text.PrettyPrint.Annotated
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJ
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJClass
|
||||||
|
|
||||||
import Test.Hspec
|
import Test.Hspec
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -4,7 +4,51 @@ module TestUtils where
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#include "prelude.inc"
|
import Language.Haskell.Brittany.Internal.Prelude
|
||||||
|
import Language.Haskell.Brittany.Internal.PreludeUtils
|
||||||
|
import qualified Control.Monad.Reader.Class as Reader.Class
|
||||||
|
import qualified Control.Monad.RWS.Class as RWS.Class
|
||||||
|
import qualified Control.Monad.State.Class as State.Class
|
||||||
|
import qualified Control.Monad.Trans.Except as ExceptT
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
|
||||||
|
import qualified Control.Monad.Trans.State as State
|
||||||
|
import qualified Control.Monad.Trans.State.Lazy as StateL
|
||||||
|
import qualified Control.Monad.Trans.State.Strict as StateS
|
||||||
|
import qualified Control.Monad.Writer.Class as Writer.Class
|
||||||
|
import qualified Data.Bool as Bool
|
||||||
|
import qualified Data.ByteString
|
||||||
|
import qualified Data.ByteString as ByteString
|
||||||
|
import qualified Data.ByteString.Char8
|
||||||
|
import qualified Data.ByteString.Lazy as ByteStringL
|
||||||
|
import qualified Data.Coerce
|
||||||
|
import qualified Data.Data
|
||||||
|
import qualified Data.Either
|
||||||
|
import qualified Data.Foldable
|
||||||
|
import qualified Data.Foldable as Foldable
|
||||||
|
import qualified Data.IntMap.Lazy as IntMapL
|
||||||
|
import qualified Data.IntMap.Strict as IntMapS
|
||||||
|
import qualified Data.List.Extra
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
import qualified Data.Maybe
|
||||||
|
import qualified Data.Semigroup as Semigroup
|
||||||
|
import qualified Data.Sequence as Seq
|
||||||
|
import qualified Data.Set as Set
|
||||||
|
import qualified Data.Strict.Maybe as Strict
|
||||||
|
import qualified Data.Text as Text
|
||||||
|
import qualified Data.Text.Encoding as Text.Encoding
|
||||||
|
import qualified Data.Text.IO as Text.IO
|
||||||
|
import qualified Data.Text.Lazy as TextL
|
||||||
|
import qualified Data.Text.Lazy.Encoding as TextL.Encoding
|
||||||
|
import qualified Data.Text.Lazy.IO as TextL.IO
|
||||||
|
import qualified GHC.OldList as List
|
||||||
|
import qualified Safe as Safe
|
||||||
|
import qualified System.Directory
|
||||||
|
import qualified System.IO
|
||||||
|
import qualified Text.PrettyPrint
|
||||||
|
import qualified Text.PrettyPrint.Annotated
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJ
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJClass
|
||||||
|
|
||||||
import Test.Hspec
|
import Test.Hspec
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -21,10 +21,53 @@ where
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#include "prelude.inc"
|
import Language.Haskell.Brittany.Internal.Prelude
|
||||||
|
import Language.Haskell.Brittany.Internal.PreludeUtils
|
||||||
|
import qualified Control.Monad.Reader.Class as Reader.Class
|
||||||
|
import qualified Control.Monad.RWS.Class as RWS.Class
|
||||||
|
import qualified Control.Monad.State.Class as State.Class
|
||||||
|
import qualified Control.Monad.Trans.Except as ExceptT
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
|
||||||
|
import qualified Control.Monad.Trans.State as State
|
||||||
|
import qualified Control.Monad.Trans.State.Lazy as StateL
|
||||||
|
import qualified Control.Monad.Trans.State.Strict as StateS
|
||||||
|
import qualified Control.Monad.Writer.Class as Writer.Class
|
||||||
|
import qualified Data.Bool as Bool
|
||||||
|
import qualified Data.ByteString
|
||||||
|
import qualified Data.ByteString as ByteString
|
||||||
|
import qualified Data.ByteString.Char8
|
||||||
|
import qualified Data.ByteString.Lazy as ByteStringL
|
||||||
|
import qualified Data.Coerce
|
||||||
|
import qualified Data.Data
|
||||||
|
import qualified Data.Either
|
||||||
|
import qualified Data.Foldable
|
||||||
|
import qualified Data.Foldable as Foldable
|
||||||
|
import qualified Data.IntMap.Lazy as IntMapL
|
||||||
|
import qualified Data.IntMap.Strict as IntMapS
|
||||||
|
import qualified Data.List.Extra
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
import qualified Data.Maybe
|
||||||
|
import qualified Data.Semigroup as Semigroup
|
||||||
|
import qualified Data.Sequence as Seq
|
||||||
|
import qualified Data.Set as Set
|
||||||
|
import qualified Data.Strict.Maybe as Strict
|
||||||
|
import qualified Data.Text as Text
|
||||||
|
import qualified Data.Text.Encoding as Text.Encoding
|
||||||
|
import qualified Data.Text.IO as Text.IO
|
||||||
|
import qualified Data.Text.Lazy as TextL
|
||||||
|
import qualified Data.Text.Lazy.Encoding as TextL.Encoding
|
||||||
|
import qualified Data.Text.Lazy.IO as TextL.IO
|
||||||
|
import qualified GHC.OldList as List
|
||||||
|
import qualified Safe as Safe
|
||||||
|
import qualified System.Directory
|
||||||
|
import qualified System.IO
|
||||||
|
import qualified Text.PrettyPrint
|
||||||
|
import qualified Text.PrettyPrint.Annotated
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJ
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJClass
|
||||||
|
|
||||||
import Language.Haskell.Brittany.Internal
|
import Language.Haskell.Brittany.Internal
|
||||||
import Language.Haskell.Brittany.Internal.Types
|
import Language.Haskell.Brittany.Internal.Types
|
||||||
import Language.Haskell.Brittany.Internal.Config.Types
|
import Language.Haskell.Brittany.Internal.Config.Types
|
||||||
import Language.Haskell.Brittany.Internal.Config
|
import Language.Haskell.Brittany.Internal.Config
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -15,7 +15,51 @@ where
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#include "prelude.inc"
|
import Language.Haskell.Brittany.Internal.Prelude
|
||||||
|
import Language.Haskell.Brittany.Internal.PreludeUtils
|
||||||
|
import qualified Control.Monad.Reader.Class as Reader.Class
|
||||||
|
import qualified Control.Monad.RWS.Class as RWS.Class
|
||||||
|
import qualified Control.Monad.State.Class as State.Class
|
||||||
|
import qualified Control.Monad.Trans.Except as ExceptT
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
|
||||||
|
import qualified Control.Monad.Trans.State as State
|
||||||
|
import qualified Control.Monad.Trans.State.Lazy as StateL
|
||||||
|
import qualified Control.Monad.Trans.State.Strict as StateS
|
||||||
|
import qualified Control.Monad.Writer.Class as Writer.Class
|
||||||
|
import qualified Data.Bool as Bool
|
||||||
|
import qualified Data.ByteString
|
||||||
|
import qualified Data.ByteString as ByteString
|
||||||
|
import qualified Data.ByteString.Char8
|
||||||
|
import qualified Data.ByteString.Lazy as ByteStringL
|
||||||
|
import qualified Data.Coerce
|
||||||
|
import qualified Data.Data
|
||||||
|
import qualified Data.Either
|
||||||
|
import qualified Data.Foldable
|
||||||
|
import qualified Data.Foldable as Foldable
|
||||||
|
import qualified Data.IntMap.Lazy as IntMapL
|
||||||
|
import qualified Data.IntMap.Strict as IntMapS
|
||||||
|
import qualified Data.List.Extra
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
import qualified Data.Maybe
|
||||||
|
import qualified Data.Semigroup as Semigroup
|
||||||
|
import qualified Data.Sequence as Seq
|
||||||
|
import qualified Data.Set as Set
|
||||||
|
import qualified Data.Strict.Maybe as Strict
|
||||||
|
import qualified Data.Text as Text
|
||||||
|
import qualified Data.Text.Encoding as Text.Encoding
|
||||||
|
import qualified Data.Text.IO as Text.IO
|
||||||
|
import qualified Data.Text.Lazy as TextL
|
||||||
|
import qualified Data.Text.Lazy.Encoding as TextL.Encoding
|
||||||
|
import qualified Data.Text.Lazy.IO as TextL.IO
|
||||||
|
import qualified GHC.OldList as List
|
||||||
|
import qualified Safe as Safe
|
||||||
|
import qualified System.Directory
|
||||||
|
import qualified System.IO
|
||||||
|
import qualified Text.PrettyPrint
|
||||||
|
import qualified Text.PrettyPrint.Annotated
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJ
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJClass
|
||||||
|
|
||||||
-- brittany { lconfig_importAsColumn: 60, lconfig_importColumn: 60 }
|
-- brittany { lconfig_importAsColumn: 60, lconfig_importColumn: 60 }
|
||||||
import qualified Language.Haskell.GHC.ExactPrint as ExactPrint
|
import qualified Language.Haskell.GHC.ExactPrint as ExactPrint
|
||||||
|
|
|
||||||
|
|
@ -12,7 +12,51 @@ where
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#include "prelude.inc"
|
import Language.Haskell.Brittany.Internal.Prelude
|
||||||
|
import Language.Haskell.Brittany.Internal.PreludeUtils
|
||||||
|
import qualified Control.Monad.Reader.Class as Reader.Class
|
||||||
|
import qualified Control.Monad.RWS.Class as RWS.Class
|
||||||
|
import qualified Control.Monad.State.Class as State.Class
|
||||||
|
import qualified Control.Monad.Trans.Except as ExceptT
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
|
||||||
|
import qualified Control.Monad.Trans.State as State
|
||||||
|
import qualified Control.Monad.Trans.State.Lazy as StateL
|
||||||
|
import qualified Control.Monad.Trans.State.Strict as StateS
|
||||||
|
import qualified Control.Monad.Writer.Class as Writer.Class
|
||||||
|
import qualified Data.Bool as Bool
|
||||||
|
import qualified Data.ByteString
|
||||||
|
import qualified Data.ByteString as ByteString
|
||||||
|
import qualified Data.ByteString.Char8
|
||||||
|
import qualified Data.ByteString.Lazy as ByteStringL
|
||||||
|
import qualified Data.Coerce
|
||||||
|
import qualified Data.Data
|
||||||
|
import qualified Data.Either
|
||||||
|
import qualified Data.Foldable
|
||||||
|
import qualified Data.Foldable as Foldable
|
||||||
|
import qualified Data.IntMap.Lazy as IntMapL
|
||||||
|
import qualified Data.IntMap.Strict as IntMapS
|
||||||
|
import qualified Data.List.Extra
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
import qualified Data.Maybe
|
||||||
|
import qualified Data.Semigroup as Semigroup
|
||||||
|
import qualified Data.Sequence as Seq
|
||||||
|
import qualified Data.Set as Set
|
||||||
|
import qualified Data.Strict.Maybe as Strict
|
||||||
|
import qualified Data.Text as Text
|
||||||
|
import qualified Data.Text.Encoding as Text.Encoding
|
||||||
|
import qualified Data.Text.IO as Text.IO
|
||||||
|
import qualified Data.Text.Lazy as TextL
|
||||||
|
import qualified Data.Text.Lazy.Encoding as TextL.Encoding
|
||||||
|
import qualified Data.Text.Lazy.IO as TextL.IO
|
||||||
|
import qualified GHC.OldList as List
|
||||||
|
import qualified Safe as Safe
|
||||||
|
import qualified System.Directory
|
||||||
|
import qualified System.IO
|
||||||
|
import qualified Text.PrettyPrint
|
||||||
|
import qualified Text.PrettyPrint.Annotated
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJ
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJClass
|
||||||
|
|
||||||
import qualified Language.Haskell.GHC.ExactPrint as ExactPrint
|
import qualified Language.Haskell.GHC.ExactPrint as ExactPrint
|
||||||
import qualified Language.Haskell.GHC.ExactPrint.Annotate as ExactPrint.Annotate
|
import qualified Language.Haskell.GHC.ExactPrint.Annotate as ExactPrint.Annotate
|
||||||
|
|
@ -716,4 +760,3 @@ processInfoIgnore = \case
|
||||||
ColInfoStart -> error "should not happen (TM)"
|
ColInfoStart -> error "should not happen (TM)"
|
||||||
ColInfoNo doc -> layoutBriDocM doc
|
ColInfoNo doc -> layoutBriDocM doc
|
||||||
ColInfo _ _ list -> list `forM_` (snd .> processInfoIgnore)
|
ColInfo _ _ list -> list `forM_` (snd .> processInfoIgnore)
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -32,7 +32,51 @@ module Language.Haskell.Brittany.Internal.BackendUtils
|
||||||
where
|
where
|
||||||
|
|
||||||
|
|
||||||
#include "prelude.inc"
|
import Language.Haskell.Brittany.Internal.Prelude
|
||||||
|
import Language.Haskell.Brittany.Internal.PreludeUtils
|
||||||
|
import qualified Control.Monad.Reader.Class as Reader.Class
|
||||||
|
import qualified Control.Monad.RWS.Class as RWS.Class
|
||||||
|
import qualified Control.Monad.State.Class as State.Class
|
||||||
|
import qualified Control.Monad.Trans.Except as ExceptT
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
|
||||||
|
import qualified Control.Monad.Trans.State as State
|
||||||
|
import qualified Control.Monad.Trans.State.Lazy as StateL
|
||||||
|
import qualified Control.Monad.Trans.State.Strict as StateS
|
||||||
|
import qualified Control.Monad.Writer.Class as Writer.Class
|
||||||
|
import qualified Data.Bool as Bool
|
||||||
|
import qualified Data.ByteString
|
||||||
|
import qualified Data.ByteString as ByteString
|
||||||
|
import qualified Data.ByteString.Char8
|
||||||
|
import qualified Data.ByteString.Lazy as ByteStringL
|
||||||
|
import qualified Data.Coerce
|
||||||
|
import qualified Data.Data
|
||||||
|
import qualified Data.Either
|
||||||
|
import qualified Data.Foldable
|
||||||
|
import qualified Data.Foldable as Foldable
|
||||||
|
import qualified Data.IntMap.Lazy as IntMapL
|
||||||
|
import qualified Data.IntMap.Strict as IntMapS
|
||||||
|
import qualified Data.List.Extra
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
import qualified Data.Maybe
|
||||||
|
import qualified Data.Semigroup as Semigroup
|
||||||
|
import qualified Data.Sequence as Seq
|
||||||
|
import qualified Data.Set as Set
|
||||||
|
import qualified Data.Strict.Maybe as Strict
|
||||||
|
import qualified Data.Text as Text
|
||||||
|
import qualified Data.Text.Encoding as Text.Encoding
|
||||||
|
import qualified Data.Text.IO as Text.IO
|
||||||
|
import qualified Data.Text.Lazy as TextL
|
||||||
|
import qualified Data.Text.Lazy.Encoding as TextL.Encoding
|
||||||
|
import qualified Data.Text.Lazy.IO as TextL.IO
|
||||||
|
import qualified GHC.OldList as List
|
||||||
|
import qualified Safe as Safe
|
||||||
|
import qualified System.Directory
|
||||||
|
import qualified System.IO
|
||||||
|
import qualified Text.PrettyPrint
|
||||||
|
import qualified Text.PrettyPrint.Annotated
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJ
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJClass
|
||||||
|
|
||||||
import Language.Haskell.Brittany.Internal.Types
|
import Language.Haskell.Brittany.Internal.Types
|
||||||
import Language.Haskell.Brittany.Internal.Config.Types
|
import Language.Haskell.Brittany.Internal.Config.Types
|
||||||
|
|
|
||||||
|
|
@ -20,7 +20,51 @@ where
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#include "prelude.inc"
|
import Language.Haskell.Brittany.Internal.Prelude
|
||||||
|
import Language.Haskell.Brittany.Internal.PreludeUtils
|
||||||
|
import qualified Control.Monad.Reader.Class as Reader.Class
|
||||||
|
import qualified Control.Monad.RWS.Class as RWS.Class
|
||||||
|
import qualified Control.Monad.State.Class as State.Class
|
||||||
|
import qualified Control.Monad.Trans.Except as ExceptT
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
|
||||||
|
import qualified Control.Monad.Trans.State as State
|
||||||
|
import qualified Control.Monad.Trans.State.Lazy as StateL
|
||||||
|
import qualified Control.Monad.Trans.State.Strict as StateS
|
||||||
|
import qualified Control.Monad.Writer.Class as Writer.Class
|
||||||
|
import qualified Data.Bool as Bool
|
||||||
|
import qualified Data.ByteString
|
||||||
|
import qualified Data.ByteString as ByteString
|
||||||
|
import qualified Data.ByteString.Char8
|
||||||
|
import qualified Data.ByteString.Lazy as ByteStringL
|
||||||
|
import qualified Data.Coerce
|
||||||
|
import qualified Data.Data
|
||||||
|
import qualified Data.Either
|
||||||
|
import qualified Data.Foldable
|
||||||
|
import qualified Data.Foldable as Foldable
|
||||||
|
import qualified Data.IntMap.Lazy as IntMapL
|
||||||
|
import qualified Data.IntMap.Strict as IntMapS
|
||||||
|
import qualified Data.List.Extra
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
import qualified Data.Maybe
|
||||||
|
import qualified Data.Semigroup as Semigroup
|
||||||
|
import qualified Data.Sequence as Seq
|
||||||
|
import qualified Data.Set as Set
|
||||||
|
import qualified Data.Strict.Maybe as Strict
|
||||||
|
import qualified Data.Text as Text
|
||||||
|
import qualified Data.Text.Encoding as Text.Encoding
|
||||||
|
import qualified Data.Text.IO as Text.IO
|
||||||
|
import qualified Data.Text.Lazy as TextL
|
||||||
|
import qualified Data.Text.Lazy.Encoding as TextL.Encoding
|
||||||
|
import qualified Data.Text.Lazy.IO as TextL.IO
|
||||||
|
import qualified GHC.OldList as List
|
||||||
|
import qualified Safe as Safe
|
||||||
|
import qualified System.Directory
|
||||||
|
import qualified System.IO
|
||||||
|
import qualified Text.PrettyPrint
|
||||||
|
import qualified Text.PrettyPrint.Annotated
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJ
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJClass
|
||||||
|
|
||||||
import Language.Haskell.Brittany.Internal.Types
|
import Language.Haskell.Brittany.Internal.Types
|
||||||
import Language.Haskell.Brittany.Internal.LayouterBasics
|
import Language.Haskell.Brittany.Internal.LayouterBasics
|
||||||
|
|
|
||||||
|
|
@ -12,7 +12,51 @@ where
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#include "prelude.inc"
|
import Language.Haskell.Brittany.Internal.Prelude
|
||||||
|
import Language.Haskell.Brittany.Internal.PreludeUtils
|
||||||
|
import qualified Control.Monad.Reader.Class as Reader.Class
|
||||||
|
import qualified Control.Monad.RWS.Class as RWS.Class
|
||||||
|
import qualified Control.Monad.State.Class as State.Class
|
||||||
|
import qualified Control.Monad.Trans.Except as ExceptT
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
|
||||||
|
import qualified Control.Monad.Trans.State as State
|
||||||
|
import qualified Control.Monad.Trans.State.Lazy as StateL
|
||||||
|
import qualified Control.Monad.Trans.State.Strict as StateS
|
||||||
|
import qualified Control.Monad.Writer.Class as Writer.Class
|
||||||
|
import qualified Data.Bool as Bool
|
||||||
|
import qualified Data.ByteString
|
||||||
|
import qualified Data.ByteString as ByteString
|
||||||
|
import qualified Data.ByteString.Char8
|
||||||
|
import qualified Data.ByteString.Lazy as ByteStringL
|
||||||
|
import qualified Data.Coerce
|
||||||
|
import qualified Data.Data
|
||||||
|
import qualified Data.Either
|
||||||
|
import qualified Data.Foldable
|
||||||
|
import qualified Data.Foldable as Foldable
|
||||||
|
import qualified Data.IntMap.Lazy as IntMapL
|
||||||
|
import qualified Data.IntMap.Strict as IntMapS
|
||||||
|
import qualified Data.List.Extra
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
import qualified Data.Maybe
|
||||||
|
import qualified Data.Semigroup as Semigroup
|
||||||
|
import qualified Data.Sequence as Seq
|
||||||
|
import qualified Data.Set as Set
|
||||||
|
import qualified Data.Strict.Maybe as Strict
|
||||||
|
import qualified Data.Text as Text
|
||||||
|
import qualified Data.Text.Encoding as Text.Encoding
|
||||||
|
import qualified Data.Text.IO as Text.IO
|
||||||
|
import qualified Data.Text.Lazy as TextL
|
||||||
|
import qualified Data.Text.Lazy.Encoding as TextL.Encoding
|
||||||
|
import qualified Data.Text.Lazy.IO as TextL.IO
|
||||||
|
import qualified GHC.OldList as List
|
||||||
|
import qualified Safe as Safe
|
||||||
|
import qualified System.Directory
|
||||||
|
import qualified System.IO
|
||||||
|
import qualified Text.PrettyPrint
|
||||||
|
import qualified Text.PrettyPrint.Annotated
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJ
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJClass
|
||||||
|
|
||||||
import Data.Yaml
|
import Data.Yaml
|
||||||
import qualified Data.Aeson.Types as Aeson
|
import qualified Data.Aeson.Types as Aeson
|
||||||
|
|
|
||||||
|
|
@ -18,7 +18,51 @@ where
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#include "prelude.inc"
|
import Language.Haskell.Brittany.Internal.Prelude
|
||||||
|
import Language.Haskell.Brittany.Internal.PreludeUtils
|
||||||
|
import qualified Control.Monad.Reader.Class as Reader.Class
|
||||||
|
import qualified Control.Monad.RWS.Class as RWS.Class
|
||||||
|
import qualified Control.Monad.State.Class as State.Class
|
||||||
|
import qualified Control.Monad.Trans.Except as ExceptT
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
|
||||||
|
import qualified Control.Monad.Trans.State as State
|
||||||
|
import qualified Control.Monad.Trans.State.Lazy as StateL
|
||||||
|
import qualified Control.Monad.Trans.State.Strict as StateS
|
||||||
|
import qualified Control.Monad.Writer.Class as Writer.Class
|
||||||
|
import qualified Data.Bool as Bool
|
||||||
|
import qualified Data.ByteString
|
||||||
|
import qualified Data.ByteString as ByteString
|
||||||
|
import qualified Data.ByteString.Char8
|
||||||
|
import qualified Data.ByteString.Lazy as ByteStringL
|
||||||
|
import qualified Data.Coerce
|
||||||
|
import qualified Data.Data
|
||||||
|
import qualified Data.Either
|
||||||
|
import qualified Data.Foldable
|
||||||
|
import qualified Data.Foldable as Foldable
|
||||||
|
import qualified Data.IntMap.Lazy as IntMapL
|
||||||
|
import qualified Data.IntMap.Strict as IntMapS
|
||||||
|
import qualified Data.List.Extra
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
import qualified Data.Maybe
|
||||||
|
import qualified Data.Semigroup as Semigroup
|
||||||
|
import qualified Data.Sequence as Seq
|
||||||
|
import qualified Data.Set as Set
|
||||||
|
import qualified Data.Strict.Maybe as Strict
|
||||||
|
import qualified Data.Text as Text
|
||||||
|
import qualified Data.Text.Encoding as Text.Encoding
|
||||||
|
import qualified Data.Text.IO as Text.IO
|
||||||
|
import qualified Data.Text.Lazy as TextL
|
||||||
|
import qualified Data.Text.Lazy.Encoding as TextL.Encoding
|
||||||
|
import qualified Data.Text.Lazy.IO as TextL.IO
|
||||||
|
import qualified GHC.OldList as List
|
||||||
|
import qualified Safe as Safe
|
||||||
|
import qualified System.Directory
|
||||||
|
import qualified System.IO
|
||||||
|
import qualified Text.PrettyPrint
|
||||||
|
import qualified Text.PrettyPrint.Annotated
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJ
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJClass
|
||||||
|
|
||||||
import Data.Yaml
|
import Data.Yaml
|
||||||
import qualified Data.Aeson.Key as Key
|
import qualified Data.Aeson.Key as Key
|
||||||
|
|
|
||||||
|
|
@ -12,7 +12,51 @@ where
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#include "prelude.inc"
|
import Language.Haskell.Brittany.Internal.Prelude
|
||||||
|
import Language.Haskell.Brittany.Internal.PreludeUtils
|
||||||
|
import qualified Control.Monad.Reader.Class as Reader.Class
|
||||||
|
import qualified Control.Monad.RWS.Class as RWS.Class
|
||||||
|
import qualified Control.Monad.State.Class as State.Class
|
||||||
|
import qualified Control.Monad.Trans.Except as ExceptT
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
|
||||||
|
import qualified Control.Monad.Trans.State as State
|
||||||
|
import qualified Control.Monad.Trans.State.Lazy as StateL
|
||||||
|
import qualified Control.Monad.Trans.State.Strict as StateS
|
||||||
|
import qualified Control.Monad.Writer.Class as Writer.Class
|
||||||
|
import qualified Data.Bool as Bool
|
||||||
|
import qualified Data.ByteString
|
||||||
|
import qualified Data.ByteString as ByteString
|
||||||
|
import qualified Data.ByteString.Char8
|
||||||
|
import qualified Data.ByteString.Lazy as ByteStringL
|
||||||
|
import qualified Data.Coerce
|
||||||
|
import qualified Data.Data
|
||||||
|
import qualified Data.Either
|
||||||
|
import qualified Data.Foldable
|
||||||
|
import qualified Data.Foldable as Foldable
|
||||||
|
import qualified Data.IntMap.Lazy as IntMapL
|
||||||
|
import qualified Data.IntMap.Strict as IntMapS
|
||||||
|
import qualified Data.List.Extra
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
import qualified Data.Maybe
|
||||||
|
import qualified Data.Semigroup as Semigroup
|
||||||
|
import qualified Data.Sequence as Seq
|
||||||
|
import qualified Data.Set as Set
|
||||||
|
import qualified Data.Strict.Maybe as Strict
|
||||||
|
import qualified Data.Text as Text
|
||||||
|
import qualified Data.Text.Encoding as Text.Encoding
|
||||||
|
import qualified Data.Text.IO as Text.IO
|
||||||
|
import qualified Data.Text.Lazy as TextL
|
||||||
|
import qualified Data.Text.Lazy.Encoding as TextL.Encoding
|
||||||
|
import qualified Data.Text.Lazy.IO as TextL.IO
|
||||||
|
import qualified GHC.OldList as List
|
||||||
|
import qualified Safe as Safe
|
||||||
|
import qualified System.Directory
|
||||||
|
import qualified System.IO
|
||||||
|
import qualified Text.PrettyPrint
|
||||||
|
import qualified Text.PrettyPrint.Annotated
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJ
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJClass
|
||||||
|
|
||||||
import Language.Haskell.Brittany.Internal.Types
|
import Language.Haskell.Brittany.Internal.Types
|
||||||
import Language.Haskell.Brittany.Internal.Config.Types
|
import Language.Haskell.Brittany.Internal.Config.Types
|
||||||
|
|
|
||||||
|
|
@ -80,7 +80,51 @@ where
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#include "prelude.inc"
|
import Language.Haskell.Brittany.Internal.Prelude
|
||||||
|
import Language.Haskell.Brittany.Internal.PreludeUtils
|
||||||
|
import qualified Control.Monad.Reader.Class as Reader.Class
|
||||||
|
import qualified Control.Monad.RWS.Class as RWS.Class
|
||||||
|
import qualified Control.Monad.State.Class as State.Class
|
||||||
|
import qualified Control.Monad.Trans.Except as ExceptT
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
|
||||||
|
import qualified Control.Monad.Trans.State as State
|
||||||
|
import qualified Control.Monad.Trans.State.Lazy as StateL
|
||||||
|
import qualified Control.Monad.Trans.State.Strict as StateS
|
||||||
|
import qualified Control.Monad.Writer.Class as Writer.Class
|
||||||
|
import qualified Data.Bool as Bool
|
||||||
|
import qualified Data.ByteString
|
||||||
|
import qualified Data.ByteString as ByteString
|
||||||
|
import qualified Data.ByteString.Char8
|
||||||
|
import qualified Data.ByteString.Lazy as ByteStringL
|
||||||
|
import qualified Data.Coerce
|
||||||
|
import qualified Data.Data
|
||||||
|
import qualified Data.Either
|
||||||
|
import qualified Data.Foldable
|
||||||
|
import qualified Data.Foldable as Foldable
|
||||||
|
import qualified Data.IntMap.Lazy as IntMapL
|
||||||
|
import qualified Data.IntMap.Strict as IntMapS
|
||||||
|
import qualified Data.List.Extra
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
import qualified Data.Maybe
|
||||||
|
import qualified Data.Semigroup as Semigroup
|
||||||
|
import qualified Data.Sequence as Seq
|
||||||
|
import qualified Data.Set as Set
|
||||||
|
import qualified Data.Strict.Maybe as Strict
|
||||||
|
import qualified Data.Text as Text
|
||||||
|
import qualified Data.Text.Encoding as Text.Encoding
|
||||||
|
import qualified Data.Text.IO as Text.IO
|
||||||
|
import qualified Data.Text.Lazy as TextL
|
||||||
|
import qualified Data.Text.Lazy.Encoding as TextL.Encoding
|
||||||
|
import qualified Data.Text.Lazy.IO as TextL.IO
|
||||||
|
import qualified GHC.OldList as List
|
||||||
|
import qualified Safe as Safe
|
||||||
|
import qualified System.Directory
|
||||||
|
import qualified System.IO
|
||||||
|
import qualified Text.PrettyPrint
|
||||||
|
import qualified Text.PrettyPrint.Annotated
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJ
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJClass
|
||||||
|
|
||||||
import qualified Control.Monad.Writer.Strict as Writer
|
import qualified Control.Monad.Writer.Strict as Writer
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -10,7 +10,51 @@ where
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#include "prelude.inc"
|
import Language.Haskell.Brittany.Internal.Prelude
|
||||||
|
import Language.Haskell.Brittany.Internal.PreludeUtils
|
||||||
|
import qualified Control.Monad.Reader.Class as Reader.Class
|
||||||
|
import qualified Control.Monad.RWS.Class as RWS.Class
|
||||||
|
import qualified Control.Monad.State.Class as State.Class
|
||||||
|
import qualified Control.Monad.Trans.Except as ExceptT
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
|
||||||
|
import qualified Control.Monad.Trans.State as State
|
||||||
|
import qualified Control.Monad.Trans.State.Lazy as StateL
|
||||||
|
import qualified Control.Monad.Trans.State.Strict as StateS
|
||||||
|
import qualified Control.Monad.Writer.Class as Writer.Class
|
||||||
|
import qualified Data.Bool as Bool
|
||||||
|
import qualified Data.ByteString
|
||||||
|
import qualified Data.ByteString as ByteString
|
||||||
|
import qualified Data.ByteString.Char8
|
||||||
|
import qualified Data.ByteString.Lazy as ByteStringL
|
||||||
|
import qualified Data.Coerce
|
||||||
|
import qualified Data.Data
|
||||||
|
import qualified Data.Either
|
||||||
|
import qualified Data.Foldable
|
||||||
|
import qualified Data.Foldable as Foldable
|
||||||
|
import qualified Data.IntMap.Lazy as IntMapL
|
||||||
|
import qualified Data.IntMap.Strict as IntMapS
|
||||||
|
import qualified Data.List.Extra
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
import qualified Data.Maybe
|
||||||
|
import qualified Data.Semigroup as Semigroup
|
||||||
|
import qualified Data.Sequence as Seq
|
||||||
|
import qualified Data.Set as Set
|
||||||
|
import qualified Data.Strict.Maybe as Strict
|
||||||
|
import qualified Data.Text as Text
|
||||||
|
import qualified Data.Text.Encoding as Text.Encoding
|
||||||
|
import qualified Data.Text.IO as Text.IO
|
||||||
|
import qualified Data.Text.Lazy as TextL
|
||||||
|
import qualified Data.Text.Lazy.Encoding as TextL.Encoding
|
||||||
|
import qualified Data.Text.Lazy.IO as TextL.IO
|
||||||
|
import qualified GHC.OldList as List
|
||||||
|
import qualified Safe as Safe
|
||||||
|
import qualified System.Directory
|
||||||
|
import qualified System.IO
|
||||||
|
import qualified Text.PrettyPrint
|
||||||
|
import qualified Text.PrettyPrint.Annotated
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJ
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJClass
|
||||||
|
|
||||||
import Language.Haskell.Brittany.Internal.Types
|
import Language.Haskell.Brittany.Internal.Types
|
||||||
import Language.Haskell.Brittany.Internal.LayouterBasics
|
import Language.Haskell.Brittany.Internal.LayouterBasics
|
||||||
|
|
|
||||||
|
|
@ -18,7 +18,51 @@ where
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#include "prelude.inc"
|
import Language.Haskell.Brittany.Internal.Prelude
|
||||||
|
import Language.Haskell.Brittany.Internal.PreludeUtils
|
||||||
|
import qualified Control.Monad.Reader.Class as Reader.Class
|
||||||
|
import qualified Control.Monad.RWS.Class as RWS.Class
|
||||||
|
import qualified Control.Monad.State.Class as State.Class
|
||||||
|
import qualified Control.Monad.Trans.Except as ExceptT
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
|
||||||
|
import qualified Control.Monad.Trans.State as State
|
||||||
|
import qualified Control.Monad.Trans.State.Lazy as StateL
|
||||||
|
import qualified Control.Monad.Trans.State.Strict as StateS
|
||||||
|
import qualified Control.Monad.Writer.Class as Writer.Class
|
||||||
|
import qualified Data.Bool as Bool
|
||||||
|
import qualified Data.ByteString
|
||||||
|
import qualified Data.ByteString as ByteString
|
||||||
|
import qualified Data.ByteString.Char8
|
||||||
|
import qualified Data.ByteString.Lazy as ByteStringL
|
||||||
|
import qualified Data.Coerce
|
||||||
|
import qualified Data.Data
|
||||||
|
import qualified Data.Either
|
||||||
|
import qualified Data.Foldable
|
||||||
|
import qualified Data.Foldable as Foldable
|
||||||
|
import qualified Data.IntMap.Lazy as IntMapL
|
||||||
|
import qualified Data.IntMap.Strict as IntMapS
|
||||||
|
import qualified Data.List.Extra
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
import qualified Data.Maybe
|
||||||
|
import qualified Data.Semigroup as Semigroup
|
||||||
|
import qualified Data.Sequence as Seq
|
||||||
|
import qualified Data.Set as Set
|
||||||
|
import qualified Data.Strict.Maybe as Strict
|
||||||
|
import qualified Data.Text as Text
|
||||||
|
import qualified Data.Text.Encoding as Text.Encoding
|
||||||
|
import qualified Data.Text.IO as Text.IO
|
||||||
|
import qualified Data.Text.Lazy as TextL
|
||||||
|
import qualified Data.Text.Lazy.Encoding as TextL.Encoding
|
||||||
|
import qualified Data.Text.Lazy.IO as TextL.IO
|
||||||
|
import qualified GHC.OldList as List
|
||||||
|
import qualified Safe as Safe
|
||||||
|
import qualified System.Directory
|
||||||
|
import qualified System.IO
|
||||||
|
import qualified Text.PrettyPrint
|
||||||
|
import qualified Text.PrettyPrint.Annotated
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJ
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJClass
|
||||||
|
|
||||||
import Language.Haskell.Brittany.Internal.Types
|
import Language.Haskell.Brittany.Internal.Types
|
||||||
import Language.Haskell.Brittany.Internal.LayouterBasics
|
import Language.Haskell.Brittany.Internal.LayouterBasics
|
||||||
|
|
|
||||||
|
|
@ -10,7 +10,51 @@ where
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#include "prelude.inc"
|
import Language.Haskell.Brittany.Internal.Prelude
|
||||||
|
import Language.Haskell.Brittany.Internal.PreludeUtils
|
||||||
|
import qualified Control.Monad.Reader.Class as Reader.Class
|
||||||
|
import qualified Control.Monad.RWS.Class as RWS.Class
|
||||||
|
import qualified Control.Monad.State.Class as State.Class
|
||||||
|
import qualified Control.Monad.Trans.Except as ExceptT
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
|
||||||
|
import qualified Control.Monad.Trans.State as State
|
||||||
|
import qualified Control.Monad.Trans.State.Lazy as StateL
|
||||||
|
import qualified Control.Monad.Trans.State.Strict as StateS
|
||||||
|
import qualified Control.Monad.Writer.Class as Writer.Class
|
||||||
|
import qualified Data.Bool as Bool
|
||||||
|
import qualified Data.ByteString
|
||||||
|
import qualified Data.ByteString as ByteString
|
||||||
|
import qualified Data.ByteString.Char8
|
||||||
|
import qualified Data.ByteString.Lazy as ByteStringL
|
||||||
|
import qualified Data.Coerce
|
||||||
|
import qualified Data.Data
|
||||||
|
import qualified Data.Either
|
||||||
|
import qualified Data.Foldable
|
||||||
|
import qualified Data.Foldable as Foldable
|
||||||
|
import qualified Data.IntMap.Lazy as IntMapL
|
||||||
|
import qualified Data.IntMap.Strict as IntMapS
|
||||||
|
import qualified Data.List.Extra
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
import qualified Data.Maybe
|
||||||
|
import qualified Data.Semigroup as Semigroup
|
||||||
|
import qualified Data.Sequence as Seq
|
||||||
|
import qualified Data.Set as Set
|
||||||
|
import qualified Data.Strict.Maybe as Strict
|
||||||
|
import qualified Data.Text as Text
|
||||||
|
import qualified Data.Text.Encoding as Text.Encoding
|
||||||
|
import qualified Data.Text.IO as Text.IO
|
||||||
|
import qualified Data.Text.Lazy as TextL
|
||||||
|
import qualified Data.Text.Lazy.Encoding as TextL.Encoding
|
||||||
|
import qualified Data.Text.Lazy.IO as TextL.IO
|
||||||
|
import qualified GHC.OldList as List
|
||||||
|
import qualified Safe as Safe
|
||||||
|
import qualified System.Directory
|
||||||
|
import qualified System.IO
|
||||||
|
import qualified Text.PrettyPrint
|
||||||
|
import qualified Text.PrettyPrint.Annotated
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJ
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJClass
|
||||||
|
|
||||||
import Language.Haskell.Brittany.Internal.Types
|
import Language.Haskell.Brittany.Internal.Types
|
||||||
import Language.Haskell.Brittany.Internal.LayouterBasics
|
import Language.Haskell.Brittany.Internal.LayouterBasics
|
||||||
|
|
|
||||||
|
|
@ -9,7 +9,51 @@ where
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#include "prelude.inc"
|
import Language.Haskell.Brittany.Internal.Prelude
|
||||||
|
import Language.Haskell.Brittany.Internal.PreludeUtils
|
||||||
|
import qualified Control.Monad.Reader.Class as Reader.Class
|
||||||
|
import qualified Control.Monad.RWS.Class as RWS.Class
|
||||||
|
import qualified Control.Monad.State.Class as State.Class
|
||||||
|
import qualified Control.Monad.Trans.Except as ExceptT
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
|
||||||
|
import qualified Control.Monad.Trans.State as State
|
||||||
|
import qualified Control.Monad.Trans.State.Lazy as StateL
|
||||||
|
import qualified Control.Monad.Trans.State.Strict as StateS
|
||||||
|
import qualified Control.Monad.Writer.Class as Writer.Class
|
||||||
|
import qualified Data.Bool as Bool
|
||||||
|
import qualified Data.ByteString
|
||||||
|
import qualified Data.ByteString as ByteString
|
||||||
|
import qualified Data.ByteString.Char8
|
||||||
|
import qualified Data.ByteString.Lazy as ByteStringL
|
||||||
|
import qualified Data.Coerce
|
||||||
|
import qualified Data.Data
|
||||||
|
import qualified Data.Either
|
||||||
|
import qualified Data.Foldable
|
||||||
|
import qualified Data.Foldable as Foldable
|
||||||
|
import qualified Data.IntMap.Lazy as IntMapL
|
||||||
|
import qualified Data.IntMap.Strict as IntMapS
|
||||||
|
import qualified Data.List.Extra
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
import qualified Data.Maybe
|
||||||
|
import qualified Data.Semigroup as Semigroup
|
||||||
|
import qualified Data.Sequence as Seq
|
||||||
|
import qualified Data.Set as Set
|
||||||
|
import qualified Data.Strict.Maybe as Strict
|
||||||
|
import qualified Data.Text as Text
|
||||||
|
import qualified Data.Text.Encoding as Text.Encoding
|
||||||
|
import qualified Data.Text.IO as Text.IO
|
||||||
|
import qualified Data.Text.Lazy as TextL
|
||||||
|
import qualified Data.Text.Lazy.Encoding as TextL.Encoding
|
||||||
|
import qualified Data.Text.Lazy.IO as TextL.IO
|
||||||
|
import qualified GHC.OldList as List
|
||||||
|
import qualified Safe as Safe
|
||||||
|
import qualified System.Directory
|
||||||
|
import qualified System.IO
|
||||||
|
import qualified Text.PrettyPrint
|
||||||
|
import qualified Text.PrettyPrint.Annotated
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJ
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJClass
|
||||||
|
|
||||||
import Language.Haskell.Brittany.Internal.Types
|
import Language.Haskell.Brittany.Internal.Types
|
||||||
import Language.Haskell.Brittany.Internal.LayouterBasics
|
import Language.Haskell.Brittany.Internal.LayouterBasics
|
||||||
|
|
|
||||||
|
|
@ -6,7 +6,51 @@ module Language.Haskell.Brittany.Internal.Layouters.IE
|
||||||
)
|
)
|
||||||
where
|
where
|
||||||
|
|
||||||
#include "prelude.inc"
|
import Language.Haskell.Brittany.Internal.Prelude
|
||||||
|
import Language.Haskell.Brittany.Internal.PreludeUtils
|
||||||
|
import qualified Control.Monad.Reader.Class as Reader.Class
|
||||||
|
import qualified Control.Monad.RWS.Class as RWS.Class
|
||||||
|
import qualified Control.Monad.State.Class as State.Class
|
||||||
|
import qualified Control.Monad.Trans.Except as ExceptT
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
|
||||||
|
import qualified Control.Monad.Trans.State as State
|
||||||
|
import qualified Control.Monad.Trans.State.Lazy as StateL
|
||||||
|
import qualified Control.Monad.Trans.State.Strict as StateS
|
||||||
|
import qualified Control.Monad.Writer.Class as Writer.Class
|
||||||
|
import qualified Data.Bool as Bool
|
||||||
|
import qualified Data.ByteString
|
||||||
|
import qualified Data.ByteString as ByteString
|
||||||
|
import qualified Data.ByteString.Char8
|
||||||
|
import qualified Data.ByteString.Lazy as ByteStringL
|
||||||
|
import qualified Data.Coerce
|
||||||
|
import qualified Data.Data
|
||||||
|
import qualified Data.Either
|
||||||
|
import qualified Data.Foldable
|
||||||
|
import qualified Data.Foldable as Foldable
|
||||||
|
import qualified Data.IntMap.Lazy as IntMapL
|
||||||
|
import qualified Data.IntMap.Strict as IntMapS
|
||||||
|
import qualified Data.List.Extra
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
import qualified Data.Maybe
|
||||||
|
import qualified Data.Semigroup as Semigroup
|
||||||
|
import qualified Data.Sequence as Seq
|
||||||
|
import qualified Data.Set as Set
|
||||||
|
import qualified Data.Strict.Maybe as Strict
|
||||||
|
import qualified Data.Text as Text
|
||||||
|
import qualified Data.Text.Encoding as Text.Encoding
|
||||||
|
import qualified Data.Text.IO as Text.IO
|
||||||
|
import qualified Data.Text.Lazy as TextL
|
||||||
|
import qualified Data.Text.Lazy.Encoding as TextL.Encoding
|
||||||
|
import qualified Data.Text.Lazy.IO as TextL.IO
|
||||||
|
import qualified GHC.OldList as List
|
||||||
|
import qualified Safe as Safe
|
||||||
|
import qualified System.Directory
|
||||||
|
import qualified System.IO
|
||||||
|
import qualified Text.PrettyPrint
|
||||||
|
import qualified Text.PrettyPrint.Annotated
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJ
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJClass
|
||||||
|
|
||||||
import Language.Haskell.Brittany.Internal.Types
|
import Language.Haskell.Brittany.Internal.Types
|
||||||
import Language.Haskell.Brittany.Internal.LayouterBasics
|
import Language.Haskell.Brittany.Internal.LayouterBasics
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,50 @@
|
||||||
module Language.Haskell.Brittany.Internal.Layouters.Import (layoutImport) where
|
module Language.Haskell.Brittany.Internal.Layouters.Import (layoutImport) where
|
||||||
|
|
||||||
#include "prelude.inc"
|
import Language.Haskell.Brittany.Internal.Prelude
|
||||||
|
import Language.Haskell.Brittany.Internal.PreludeUtils
|
||||||
|
import qualified Control.Monad.Reader.Class as Reader.Class
|
||||||
|
import qualified Control.Monad.RWS.Class as RWS.Class
|
||||||
|
import qualified Control.Monad.State.Class as State.Class
|
||||||
|
import qualified Control.Monad.Trans.Except as ExceptT
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
|
||||||
|
import qualified Control.Monad.Trans.State as State
|
||||||
|
import qualified Control.Monad.Trans.State.Lazy as StateL
|
||||||
|
import qualified Control.Monad.Trans.State.Strict as StateS
|
||||||
|
import qualified Control.Monad.Writer.Class as Writer.Class
|
||||||
|
import qualified Data.Bool as Bool
|
||||||
|
import qualified Data.ByteString
|
||||||
|
import qualified Data.ByteString as ByteString
|
||||||
|
import qualified Data.ByteString.Char8
|
||||||
|
import qualified Data.ByteString.Lazy as ByteStringL
|
||||||
|
import qualified Data.Coerce
|
||||||
|
import qualified Data.Data
|
||||||
|
import qualified Data.Either
|
||||||
|
import qualified Data.Foldable
|
||||||
|
import qualified Data.Foldable as Foldable
|
||||||
|
import qualified Data.IntMap.Lazy as IntMapL
|
||||||
|
import qualified Data.IntMap.Strict as IntMapS
|
||||||
|
import qualified Data.List.Extra
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
import qualified Data.Maybe
|
||||||
|
import qualified Data.Semigroup as Semigroup
|
||||||
|
import qualified Data.Sequence as Seq
|
||||||
|
import qualified Data.Set as Set
|
||||||
|
import qualified Data.Strict.Maybe as Strict
|
||||||
|
import qualified Data.Text as Text
|
||||||
|
import qualified Data.Text.Encoding as Text.Encoding
|
||||||
|
import qualified Data.Text.IO as Text.IO
|
||||||
|
import qualified Data.Text.Lazy as TextL
|
||||||
|
import qualified Data.Text.Lazy.Encoding as TextL.Encoding
|
||||||
|
import qualified Data.Text.Lazy.IO as TextL.IO
|
||||||
|
import qualified GHC.OldList as List
|
||||||
|
import qualified Safe as Safe
|
||||||
|
import qualified System.Directory
|
||||||
|
import qualified System.IO
|
||||||
|
import qualified Text.PrettyPrint
|
||||||
|
import qualified Text.PrettyPrint.Annotated
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJ
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJClass
|
||||||
|
|
||||||
import Language.Haskell.Brittany.Internal.Types
|
import Language.Haskell.Brittany.Internal.Types
|
||||||
import Language.Haskell.Brittany.Internal.LayouterBasics
|
import Language.Haskell.Brittany.Internal.LayouterBasics
|
||||||
|
|
|
||||||
|
|
@ -2,7 +2,51 @@
|
||||||
|
|
||||||
module Language.Haskell.Brittany.Internal.Layouters.Module (layoutModule) where
|
module Language.Haskell.Brittany.Internal.Layouters.Module (layoutModule) where
|
||||||
|
|
||||||
#include "prelude.inc"
|
import Language.Haskell.Brittany.Internal.Prelude
|
||||||
|
import Language.Haskell.Brittany.Internal.PreludeUtils
|
||||||
|
import qualified Control.Monad.Reader.Class as Reader.Class
|
||||||
|
import qualified Control.Monad.RWS.Class as RWS.Class
|
||||||
|
import qualified Control.Monad.State.Class as State.Class
|
||||||
|
import qualified Control.Monad.Trans.Except as ExceptT
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
|
||||||
|
import qualified Control.Monad.Trans.State as State
|
||||||
|
import qualified Control.Monad.Trans.State.Lazy as StateL
|
||||||
|
import qualified Control.Monad.Trans.State.Strict as StateS
|
||||||
|
import qualified Control.Monad.Writer.Class as Writer.Class
|
||||||
|
import qualified Data.Bool as Bool
|
||||||
|
import qualified Data.ByteString
|
||||||
|
import qualified Data.ByteString as ByteString
|
||||||
|
import qualified Data.ByteString.Char8
|
||||||
|
import qualified Data.ByteString.Lazy as ByteStringL
|
||||||
|
import qualified Data.Coerce
|
||||||
|
import qualified Data.Data
|
||||||
|
import qualified Data.Either
|
||||||
|
import qualified Data.Foldable
|
||||||
|
import qualified Data.Foldable as Foldable
|
||||||
|
import qualified Data.IntMap.Lazy as IntMapL
|
||||||
|
import qualified Data.IntMap.Strict as IntMapS
|
||||||
|
import qualified Data.List.Extra
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
import qualified Data.Maybe
|
||||||
|
import qualified Data.Semigroup as Semigroup
|
||||||
|
import qualified Data.Sequence as Seq
|
||||||
|
import qualified Data.Set as Set
|
||||||
|
import qualified Data.Strict.Maybe as Strict
|
||||||
|
import qualified Data.Text as Text
|
||||||
|
import qualified Data.Text.Encoding as Text.Encoding
|
||||||
|
import qualified Data.Text.IO as Text.IO
|
||||||
|
import qualified Data.Text.Lazy as TextL
|
||||||
|
import qualified Data.Text.Lazy.Encoding as TextL.Encoding
|
||||||
|
import qualified Data.Text.Lazy.IO as TextL.IO
|
||||||
|
import qualified GHC.OldList as List
|
||||||
|
import qualified Safe as Safe
|
||||||
|
import qualified System.Directory
|
||||||
|
import qualified System.IO
|
||||||
|
import qualified Text.PrettyPrint
|
||||||
|
import qualified Text.PrettyPrint.Annotated
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJ
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJClass
|
||||||
|
|
||||||
import Language.Haskell.Brittany.Internal.Types
|
import Language.Haskell.Brittany.Internal.Types
|
||||||
import Language.Haskell.Brittany.Internal.LayouterBasics
|
import Language.Haskell.Brittany.Internal.LayouterBasics
|
||||||
|
|
|
||||||
|
|
@ -9,7 +9,51 @@ where
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#include "prelude.inc"
|
import Language.Haskell.Brittany.Internal.Prelude
|
||||||
|
import Language.Haskell.Brittany.Internal.PreludeUtils
|
||||||
|
import qualified Control.Monad.Reader.Class as Reader.Class
|
||||||
|
import qualified Control.Monad.RWS.Class as RWS.Class
|
||||||
|
import qualified Control.Monad.State.Class as State.Class
|
||||||
|
import qualified Control.Monad.Trans.Except as ExceptT
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
|
||||||
|
import qualified Control.Monad.Trans.State as State
|
||||||
|
import qualified Control.Monad.Trans.State.Lazy as StateL
|
||||||
|
import qualified Control.Monad.Trans.State.Strict as StateS
|
||||||
|
import qualified Control.Monad.Writer.Class as Writer.Class
|
||||||
|
import qualified Data.Bool as Bool
|
||||||
|
import qualified Data.ByteString
|
||||||
|
import qualified Data.ByteString as ByteString
|
||||||
|
import qualified Data.ByteString.Char8
|
||||||
|
import qualified Data.ByteString.Lazy as ByteStringL
|
||||||
|
import qualified Data.Coerce
|
||||||
|
import qualified Data.Data
|
||||||
|
import qualified Data.Either
|
||||||
|
import qualified Data.Foldable
|
||||||
|
import qualified Data.Foldable as Foldable
|
||||||
|
import qualified Data.IntMap.Lazy as IntMapL
|
||||||
|
import qualified Data.IntMap.Strict as IntMapS
|
||||||
|
import qualified Data.List.Extra
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
import qualified Data.Maybe
|
||||||
|
import qualified Data.Semigroup as Semigroup
|
||||||
|
import qualified Data.Sequence as Seq
|
||||||
|
import qualified Data.Set as Set
|
||||||
|
import qualified Data.Strict.Maybe as Strict
|
||||||
|
import qualified Data.Text as Text
|
||||||
|
import qualified Data.Text.Encoding as Text.Encoding
|
||||||
|
import qualified Data.Text.IO as Text.IO
|
||||||
|
import qualified Data.Text.Lazy as TextL
|
||||||
|
import qualified Data.Text.Lazy.Encoding as TextL.Encoding
|
||||||
|
import qualified Data.Text.Lazy.IO as TextL.IO
|
||||||
|
import qualified GHC.OldList as List
|
||||||
|
import qualified Safe as Safe
|
||||||
|
import qualified System.Directory
|
||||||
|
import qualified System.IO
|
||||||
|
import qualified Text.PrettyPrint
|
||||||
|
import qualified Text.PrettyPrint.Annotated
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJ
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJClass
|
||||||
|
|
||||||
import Language.Haskell.Brittany.Internal.Types
|
import Language.Haskell.Brittany.Internal.Types
|
||||||
import Language.Haskell.Brittany.Internal.LayouterBasics
|
import Language.Haskell.Brittany.Internal.LayouterBasics
|
||||||
|
|
|
||||||
|
|
@ -7,7 +7,51 @@ where
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#include "prelude.inc"
|
import Language.Haskell.Brittany.Internal.Prelude
|
||||||
|
import Language.Haskell.Brittany.Internal.PreludeUtils
|
||||||
|
import qualified Control.Monad.Reader.Class as Reader.Class
|
||||||
|
import qualified Control.Monad.RWS.Class as RWS.Class
|
||||||
|
import qualified Control.Monad.State.Class as State.Class
|
||||||
|
import qualified Control.Monad.Trans.Except as ExceptT
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
|
||||||
|
import qualified Control.Monad.Trans.State as State
|
||||||
|
import qualified Control.Monad.Trans.State.Lazy as StateL
|
||||||
|
import qualified Control.Monad.Trans.State.Strict as StateS
|
||||||
|
import qualified Control.Monad.Writer.Class as Writer.Class
|
||||||
|
import qualified Data.Bool as Bool
|
||||||
|
import qualified Data.ByteString
|
||||||
|
import qualified Data.ByteString as ByteString
|
||||||
|
import qualified Data.ByteString.Char8
|
||||||
|
import qualified Data.ByteString.Lazy as ByteStringL
|
||||||
|
import qualified Data.Coerce
|
||||||
|
import qualified Data.Data
|
||||||
|
import qualified Data.Either
|
||||||
|
import qualified Data.Foldable
|
||||||
|
import qualified Data.Foldable as Foldable
|
||||||
|
import qualified Data.IntMap.Lazy as IntMapL
|
||||||
|
import qualified Data.IntMap.Strict as IntMapS
|
||||||
|
import qualified Data.List.Extra
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
import qualified Data.Maybe
|
||||||
|
import qualified Data.Semigroup as Semigroup
|
||||||
|
import qualified Data.Sequence as Seq
|
||||||
|
import qualified Data.Set as Set
|
||||||
|
import qualified Data.Strict.Maybe as Strict
|
||||||
|
import qualified Data.Text as Text
|
||||||
|
import qualified Data.Text.Encoding as Text.Encoding
|
||||||
|
import qualified Data.Text.IO as Text.IO
|
||||||
|
import qualified Data.Text.Lazy as TextL
|
||||||
|
import qualified Data.Text.Lazy.Encoding as TextL.Encoding
|
||||||
|
import qualified Data.Text.Lazy.IO as TextL.IO
|
||||||
|
import qualified GHC.OldList as List
|
||||||
|
import qualified Safe as Safe
|
||||||
|
import qualified System.Directory
|
||||||
|
import qualified System.IO
|
||||||
|
import qualified Text.PrettyPrint
|
||||||
|
import qualified Text.PrettyPrint.Annotated
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJ
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJClass
|
||||||
|
|
||||||
import Language.Haskell.Brittany.Internal.Types
|
import Language.Haskell.Brittany.Internal.Types
|
||||||
import Language.Haskell.Brittany.Internal.LayouterBasics
|
import Language.Haskell.Brittany.Internal.LayouterBasics
|
||||||
|
|
|
||||||
|
|
@ -7,7 +7,51 @@ where
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#include "prelude.inc"
|
import Language.Haskell.Brittany.Internal.Prelude
|
||||||
|
import Language.Haskell.Brittany.Internal.PreludeUtils
|
||||||
|
import qualified Control.Monad.Reader.Class as Reader.Class
|
||||||
|
import qualified Control.Monad.RWS.Class as RWS.Class
|
||||||
|
import qualified Control.Monad.State.Class as State.Class
|
||||||
|
import qualified Control.Monad.Trans.Except as ExceptT
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
|
||||||
|
import qualified Control.Monad.Trans.State as State
|
||||||
|
import qualified Control.Monad.Trans.State.Lazy as StateL
|
||||||
|
import qualified Control.Monad.Trans.State.Strict as StateS
|
||||||
|
import qualified Control.Monad.Writer.Class as Writer.Class
|
||||||
|
import qualified Data.Bool as Bool
|
||||||
|
import qualified Data.ByteString
|
||||||
|
import qualified Data.ByteString as ByteString
|
||||||
|
import qualified Data.ByteString.Char8
|
||||||
|
import qualified Data.ByteString.Lazy as ByteStringL
|
||||||
|
import qualified Data.Coerce
|
||||||
|
import qualified Data.Data
|
||||||
|
import qualified Data.Either
|
||||||
|
import qualified Data.Foldable
|
||||||
|
import qualified Data.Foldable as Foldable
|
||||||
|
import qualified Data.IntMap.Lazy as IntMapL
|
||||||
|
import qualified Data.IntMap.Strict as IntMapS
|
||||||
|
import qualified Data.List.Extra
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
import qualified Data.Maybe
|
||||||
|
import qualified Data.Semigroup as Semigroup
|
||||||
|
import qualified Data.Sequence as Seq
|
||||||
|
import qualified Data.Set as Set
|
||||||
|
import qualified Data.Strict.Maybe as Strict
|
||||||
|
import qualified Data.Text as Text
|
||||||
|
import qualified Data.Text.Encoding as Text.Encoding
|
||||||
|
import qualified Data.Text.IO as Text.IO
|
||||||
|
import qualified Data.Text.Lazy as TextL
|
||||||
|
import qualified Data.Text.Lazy.Encoding as TextL.Encoding
|
||||||
|
import qualified Data.Text.Lazy.IO as TextL.IO
|
||||||
|
import qualified GHC.OldList as List
|
||||||
|
import qualified Safe as Safe
|
||||||
|
import qualified System.Directory
|
||||||
|
import qualified System.IO
|
||||||
|
import qualified Text.PrettyPrint
|
||||||
|
import qualified Text.PrettyPrint.Annotated
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJ
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJClass
|
||||||
|
|
||||||
import Language.Haskell.Brittany.Internal.Types
|
import Language.Haskell.Brittany.Internal.Types
|
||||||
import Language.Haskell.Brittany.Internal.LayouterBasics
|
import Language.Haskell.Brittany.Internal.LayouterBasics
|
||||||
|
|
|
||||||
|
|
@ -9,7 +9,51 @@ where
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#include "prelude.inc"
|
import Language.Haskell.Brittany.Internal.Prelude
|
||||||
|
import Language.Haskell.Brittany.Internal.PreludeUtils
|
||||||
|
import qualified Control.Monad.Reader.Class as Reader.Class
|
||||||
|
import qualified Control.Monad.RWS.Class as RWS.Class
|
||||||
|
import qualified Control.Monad.State.Class as State.Class
|
||||||
|
import qualified Control.Monad.Trans.Except as ExceptT
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
|
||||||
|
import qualified Control.Monad.Trans.State as State
|
||||||
|
import qualified Control.Monad.Trans.State.Lazy as StateL
|
||||||
|
import qualified Control.Monad.Trans.State.Strict as StateS
|
||||||
|
import qualified Control.Monad.Writer.Class as Writer.Class
|
||||||
|
import qualified Data.Bool as Bool
|
||||||
|
import qualified Data.ByteString
|
||||||
|
import qualified Data.ByteString as ByteString
|
||||||
|
import qualified Data.ByteString.Char8
|
||||||
|
import qualified Data.ByteString.Lazy as ByteStringL
|
||||||
|
import qualified Data.Coerce
|
||||||
|
import qualified Data.Data
|
||||||
|
import qualified Data.Either
|
||||||
|
import qualified Data.Foldable
|
||||||
|
import qualified Data.Foldable as Foldable
|
||||||
|
import qualified Data.IntMap.Lazy as IntMapL
|
||||||
|
import qualified Data.IntMap.Strict as IntMapS
|
||||||
|
import qualified Data.List.Extra
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
import qualified Data.Maybe
|
||||||
|
import qualified Data.Semigroup as Semigroup
|
||||||
|
import qualified Data.Sequence as Seq
|
||||||
|
import qualified Data.Set as Set
|
||||||
|
import qualified Data.Strict.Maybe as Strict
|
||||||
|
import qualified Data.Text as Text
|
||||||
|
import qualified Data.Text.Encoding as Text.Encoding
|
||||||
|
import qualified Data.Text.IO as Text.IO
|
||||||
|
import qualified Data.Text.Lazy as TextL
|
||||||
|
import qualified Data.Text.Lazy.Encoding as TextL.Encoding
|
||||||
|
import qualified Data.Text.Lazy.IO as TextL.IO
|
||||||
|
import qualified GHC.OldList as List
|
||||||
|
import qualified Safe as Safe
|
||||||
|
import qualified System.Directory
|
||||||
|
import qualified System.IO
|
||||||
|
import qualified Text.PrettyPrint
|
||||||
|
import qualified Text.PrettyPrint.Annotated
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJ
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJClass
|
||||||
|
|
||||||
import Language.Haskell.Brittany.Internal.Config.Types
|
import Language.Haskell.Brittany.Internal.Config.Types
|
||||||
import Language.Haskell.Brittany.Internal.Types
|
import Language.Haskell.Brittany.Internal.Types
|
||||||
|
|
|
||||||
|
|
@ -5,7 +5,51 @@ where
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#include "prelude.inc"
|
import Language.Haskell.Brittany.Internal.Prelude
|
||||||
|
import Language.Haskell.Brittany.Internal.PreludeUtils
|
||||||
|
import qualified Control.Monad.Reader.Class as Reader.Class
|
||||||
|
import qualified Control.Monad.RWS.Class as RWS.Class
|
||||||
|
import qualified Control.Monad.State.Class as State.Class
|
||||||
|
import qualified Control.Monad.Trans.Except as ExceptT
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
|
||||||
|
import qualified Control.Monad.Trans.State as State
|
||||||
|
import qualified Control.Monad.Trans.State.Lazy as StateL
|
||||||
|
import qualified Control.Monad.Trans.State.Strict as StateS
|
||||||
|
import qualified Control.Monad.Writer.Class as Writer.Class
|
||||||
|
import qualified Data.Bool as Bool
|
||||||
|
import qualified Data.ByteString
|
||||||
|
import qualified Data.ByteString as ByteString
|
||||||
|
import qualified Data.ByteString.Char8
|
||||||
|
import qualified Data.ByteString.Lazy as ByteStringL
|
||||||
|
import qualified Data.Coerce
|
||||||
|
import qualified Data.Data
|
||||||
|
import qualified Data.Either
|
||||||
|
import qualified Data.Foldable
|
||||||
|
import qualified Data.Foldable as Foldable
|
||||||
|
import qualified Data.IntMap.Lazy as IntMapL
|
||||||
|
import qualified Data.IntMap.Strict as IntMapS
|
||||||
|
import qualified Data.List.Extra
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
import qualified Data.Maybe
|
||||||
|
import qualified Data.Semigroup as Semigroup
|
||||||
|
import qualified Data.Sequence as Seq
|
||||||
|
import qualified Data.Set as Set
|
||||||
|
import qualified Data.Strict.Maybe as Strict
|
||||||
|
import qualified Data.Text as Text
|
||||||
|
import qualified Data.Text.Encoding as Text.Encoding
|
||||||
|
import qualified Data.Text.IO as Text.IO
|
||||||
|
import qualified Data.Text.Lazy as TextL
|
||||||
|
import qualified Data.Text.Lazy.Encoding as TextL.Encoding
|
||||||
|
import qualified Data.Text.Lazy.IO as TextL.IO
|
||||||
|
import qualified GHC.OldList as List
|
||||||
|
import qualified Safe as Safe
|
||||||
|
import qualified System.Directory
|
||||||
|
import qualified System.IO
|
||||||
|
import qualified Text.PrettyPrint
|
||||||
|
import qualified Text.PrettyPrint.Annotated
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJ
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJClass
|
||||||
|
|
||||||
import Data.Char
|
import Data.Char
|
||||||
import System.Random
|
import System.Random
|
||||||
|
|
|
||||||
|
|
@ -9,7 +9,51 @@ where
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#include "prelude.inc"
|
import Language.Haskell.Brittany.Internal.Prelude
|
||||||
|
import Language.Haskell.Brittany.Internal.PreludeUtils
|
||||||
|
import qualified Control.Monad.Reader.Class as Reader.Class
|
||||||
|
import qualified Control.Monad.RWS.Class as RWS.Class
|
||||||
|
import qualified Control.Monad.State.Class as State.Class
|
||||||
|
import qualified Control.Monad.Trans.Except as ExceptT
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
|
||||||
|
import qualified Control.Monad.Trans.State as State
|
||||||
|
import qualified Control.Monad.Trans.State.Lazy as StateL
|
||||||
|
import qualified Control.Monad.Trans.State.Strict as StateS
|
||||||
|
import qualified Control.Monad.Writer.Class as Writer.Class
|
||||||
|
import qualified Data.Bool as Bool
|
||||||
|
import qualified Data.ByteString
|
||||||
|
import qualified Data.ByteString as ByteString
|
||||||
|
import qualified Data.ByteString.Char8
|
||||||
|
import qualified Data.ByteString.Lazy as ByteStringL
|
||||||
|
import qualified Data.Coerce
|
||||||
|
import qualified Data.Data
|
||||||
|
import qualified Data.Either
|
||||||
|
import qualified Data.Foldable
|
||||||
|
import qualified Data.Foldable as Foldable
|
||||||
|
import qualified Data.IntMap.Lazy as IntMapL
|
||||||
|
import qualified Data.IntMap.Strict as IntMapS
|
||||||
|
import qualified Data.List.Extra
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
import qualified Data.Maybe
|
||||||
|
import qualified Data.Semigroup as Semigroup
|
||||||
|
import qualified Data.Sequence as Seq
|
||||||
|
import qualified Data.Set as Set
|
||||||
|
import qualified Data.Strict.Maybe as Strict
|
||||||
|
import qualified Data.Text as Text
|
||||||
|
import qualified Data.Text.Encoding as Text.Encoding
|
||||||
|
import qualified Data.Text.IO as Text.IO
|
||||||
|
import qualified Data.Text.Lazy as TextL
|
||||||
|
import qualified Data.Text.Lazy.Encoding as TextL.Encoding
|
||||||
|
import qualified Data.Text.Lazy.IO as TextL.IO
|
||||||
|
import qualified GHC.OldList as List
|
||||||
|
import qualified Safe as Safe
|
||||||
|
import qualified System.Directory
|
||||||
|
import qualified System.IO
|
||||||
|
import qualified Text.PrettyPrint
|
||||||
|
import qualified Text.PrettyPrint.Annotated
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJ
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJClass
|
||||||
|
|
||||||
import Data.HList.ContainsType
|
import Data.HList.ContainsType
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -5,7 +5,51 @@ where
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#include "prelude.inc"
|
import Language.Haskell.Brittany.Internal.Prelude
|
||||||
|
import Language.Haskell.Brittany.Internal.PreludeUtils
|
||||||
|
import qualified Control.Monad.Reader.Class as Reader.Class
|
||||||
|
import qualified Control.Monad.RWS.Class as RWS.Class
|
||||||
|
import qualified Control.Monad.State.Class as State.Class
|
||||||
|
import qualified Control.Monad.Trans.Except as ExceptT
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
|
||||||
|
import qualified Control.Monad.Trans.State as State
|
||||||
|
import qualified Control.Monad.Trans.State.Lazy as StateL
|
||||||
|
import qualified Control.Monad.Trans.State.Strict as StateS
|
||||||
|
import qualified Control.Monad.Writer.Class as Writer.Class
|
||||||
|
import qualified Data.Bool as Bool
|
||||||
|
import qualified Data.ByteString
|
||||||
|
import qualified Data.ByteString as ByteString
|
||||||
|
import qualified Data.ByteString.Char8
|
||||||
|
import qualified Data.ByteString.Lazy as ByteStringL
|
||||||
|
import qualified Data.Coerce
|
||||||
|
import qualified Data.Data
|
||||||
|
import qualified Data.Either
|
||||||
|
import qualified Data.Foldable
|
||||||
|
import qualified Data.Foldable as Foldable
|
||||||
|
import qualified Data.IntMap.Lazy as IntMapL
|
||||||
|
import qualified Data.IntMap.Strict as IntMapS
|
||||||
|
import qualified Data.List.Extra
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
import qualified Data.Maybe
|
||||||
|
import qualified Data.Semigroup as Semigroup
|
||||||
|
import qualified Data.Sequence as Seq
|
||||||
|
import qualified Data.Set as Set
|
||||||
|
import qualified Data.Strict.Maybe as Strict
|
||||||
|
import qualified Data.Text as Text
|
||||||
|
import qualified Data.Text.Encoding as Text.Encoding
|
||||||
|
import qualified Data.Text.IO as Text.IO
|
||||||
|
import qualified Data.Text.Lazy as TextL
|
||||||
|
import qualified Data.Text.Lazy.Encoding as TextL.Encoding
|
||||||
|
import qualified Data.Text.Lazy.IO as TextL.IO
|
||||||
|
import qualified GHC.OldList as List
|
||||||
|
import qualified Safe as Safe
|
||||||
|
import qualified System.Directory
|
||||||
|
import qualified System.IO
|
||||||
|
import qualified Text.PrettyPrint
|
||||||
|
import qualified Text.PrettyPrint.Annotated
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJ
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJClass
|
||||||
|
|
||||||
import Language.Haskell.Brittany.Internal.Utils
|
import Language.Haskell.Brittany.Internal.Utils
|
||||||
import Language.Haskell.Brittany.Internal.Config.Types
|
import Language.Haskell.Brittany.Internal.Config.Types
|
||||||
|
|
|
||||||
|
|
@ -5,7 +5,51 @@ where
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#include "prelude.inc"
|
import Language.Haskell.Brittany.Internal.Prelude
|
||||||
|
import Language.Haskell.Brittany.Internal.PreludeUtils
|
||||||
|
import qualified Control.Monad.Reader.Class as Reader.Class
|
||||||
|
import qualified Control.Monad.RWS.Class as RWS.Class
|
||||||
|
import qualified Control.Monad.State.Class as State.Class
|
||||||
|
import qualified Control.Monad.Trans.Except as ExceptT
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
|
||||||
|
import qualified Control.Monad.Trans.State as State
|
||||||
|
import qualified Control.Monad.Trans.State.Lazy as StateL
|
||||||
|
import qualified Control.Monad.Trans.State.Strict as StateS
|
||||||
|
import qualified Control.Monad.Writer.Class as Writer.Class
|
||||||
|
import qualified Data.Bool as Bool
|
||||||
|
import qualified Data.ByteString
|
||||||
|
import qualified Data.ByteString as ByteString
|
||||||
|
import qualified Data.ByteString.Char8
|
||||||
|
import qualified Data.ByteString.Lazy as ByteStringL
|
||||||
|
import qualified Data.Coerce
|
||||||
|
import qualified Data.Data
|
||||||
|
import qualified Data.Either
|
||||||
|
import qualified Data.Foldable
|
||||||
|
import qualified Data.Foldable as Foldable
|
||||||
|
import qualified Data.IntMap.Lazy as IntMapL
|
||||||
|
import qualified Data.IntMap.Strict as IntMapS
|
||||||
|
import qualified Data.List.Extra
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
import qualified Data.Maybe
|
||||||
|
import qualified Data.Semigroup as Semigroup
|
||||||
|
import qualified Data.Sequence as Seq
|
||||||
|
import qualified Data.Set as Set
|
||||||
|
import qualified Data.Strict.Maybe as Strict
|
||||||
|
import qualified Data.Text as Text
|
||||||
|
import qualified Data.Text.Encoding as Text.Encoding
|
||||||
|
import qualified Data.Text.IO as Text.IO
|
||||||
|
import qualified Data.Text.Lazy as TextL
|
||||||
|
import qualified Data.Text.Lazy.Encoding as TextL.Encoding
|
||||||
|
import qualified Data.Text.Lazy.IO as TextL.IO
|
||||||
|
import qualified GHC.OldList as List
|
||||||
|
import qualified Safe as Safe
|
||||||
|
import qualified System.Directory
|
||||||
|
import qualified System.IO
|
||||||
|
import qualified Text.PrettyPrint
|
||||||
|
import qualified Text.PrettyPrint.Annotated
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJ
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJClass
|
||||||
|
|
||||||
import Language.Haskell.Brittany.Internal.Utils
|
import Language.Haskell.Brittany.Internal.Utils
|
||||||
import Language.Haskell.Brittany.Internal.Config.Types
|
import Language.Haskell.Brittany.Internal.Config.Types
|
||||||
|
|
|
||||||
|
|
@ -5,7 +5,51 @@ where
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#include "prelude.inc"
|
import Language.Haskell.Brittany.Internal.Prelude
|
||||||
|
import Language.Haskell.Brittany.Internal.PreludeUtils
|
||||||
|
import qualified Control.Monad.Reader.Class as Reader.Class
|
||||||
|
import qualified Control.Monad.RWS.Class as RWS.Class
|
||||||
|
import qualified Control.Monad.State.Class as State.Class
|
||||||
|
import qualified Control.Monad.Trans.Except as ExceptT
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
|
||||||
|
import qualified Control.Monad.Trans.State as State
|
||||||
|
import qualified Control.Monad.Trans.State.Lazy as StateL
|
||||||
|
import qualified Control.Monad.Trans.State.Strict as StateS
|
||||||
|
import qualified Control.Monad.Writer.Class as Writer.Class
|
||||||
|
import qualified Data.Bool as Bool
|
||||||
|
import qualified Data.ByteString
|
||||||
|
import qualified Data.ByteString as ByteString
|
||||||
|
import qualified Data.ByteString.Char8
|
||||||
|
import qualified Data.ByteString.Lazy as ByteStringL
|
||||||
|
import qualified Data.Coerce
|
||||||
|
import qualified Data.Data
|
||||||
|
import qualified Data.Either
|
||||||
|
import qualified Data.Foldable
|
||||||
|
import qualified Data.Foldable as Foldable
|
||||||
|
import qualified Data.IntMap.Lazy as IntMapL
|
||||||
|
import qualified Data.IntMap.Strict as IntMapS
|
||||||
|
import qualified Data.List.Extra
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
import qualified Data.Maybe
|
||||||
|
import qualified Data.Semigroup as Semigroup
|
||||||
|
import qualified Data.Sequence as Seq
|
||||||
|
import qualified Data.Set as Set
|
||||||
|
import qualified Data.Strict.Maybe as Strict
|
||||||
|
import qualified Data.Text as Text
|
||||||
|
import qualified Data.Text.Encoding as Text.Encoding
|
||||||
|
import qualified Data.Text.IO as Text.IO
|
||||||
|
import qualified Data.Text.Lazy as TextL
|
||||||
|
import qualified Data.Text.Lazy.Encoding as TextL.Encoding
|
||||||
|
import qualified Data.Text.Lazy.IO as TextL.IO
|
||||||
|
import qualified GHC.OldList as List
|
||||||
|
import qualified Safe as Safe
|
||||||
|
import qualified System.Directory
|
||||||
|
import qualified System.IO
|
||||||
|
import qualified Text.PrettyPrint
|
||||||
|
import qualified Text.PrettyPrint.Annotated
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJ
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJClass
|
||||||
|
|
||||||
import Language.Haskell.Brittany.Internal.Utils
|
import Language.Haskell.Brittany.Internal.Utils
|
||||||
import Language.Haskell.Brittany.Internal.Config.Types
|
import Language.Haskell.Brittany.Internal.Config.Types
|
||||||
|
|
|
||||||
|
|
@ -5,7 +5,51 @@ where
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#include "prelude.inc"
|
import Language.Haskell.Brittany.Internal.Prelude
|
||||||
|
import Language.Haskell.Brittany.Internal.PreludeUtils
|
||||||
|
import qualified Control.Monad.Reader.Class as Reader.Class
|
||||||
|
import qualified Control.Monad.RWS.Class as RWS.Class
|
||||||
|
import qualified Control.Monad.State.Class as State.Class
|
||||||
|
import qualified Control.Monad.Trans.Except as ExceptT
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
|
||||||
|
import qualified Control.Monad.Trans.State as State
|
||||||
|
import qualified Control.Monad.Trans.State.Lazy as StateL
|
||||||
|
import qualified Control.Monad.Trans.State.Strict as StateS
|
||||||
|
import qualified Control.Monad.Writer.Class as Writer.Class
|
||||||
|
import qualified Data.Bool as Bool
|
||||||
|
import qualified Data.ByteString
|
||||||
|
import qualified Data.ByteString as ByteString
|
||||||
|
import qualified Data.ByteString.Char8
|
||||||
|
import qualified Data.ByteString.Lazy as ByteStringL
|
||||||
|
import qualified Data.Coerce
|
||||||
|
import qualified Data.Data
|
||||||
|
import qualified Data.Either
|
||||||
|
import qualified Data.Foldable
|
||||||
|
import qualified Data.Foldable as Foldable
|
||||||
|
import qualified Data.IntMap.Lazy as IntMapL
|
||||||
|
import qualified Data.IntMap.Strict as IntMapS
|
||||||
|
import qualified Data.List.Extra
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
import qualified Data.Maybe
|
||||||
|
import qualified Data.Semigroup as Semigroup
|
||||||
|
import qualified Data.Sequence as Seq
|
||||||
|
import qualified Data.Set as Set
|
||||||
|
import qualified Data.Strict.Maybe as Strict
|
||||||
|
import qualified Data.Text as Text
|
||||||
|
import qualified Data.Text.Encoding as Text.Encoding
|
||||||
|
import qualified Data.Text.IO as Text.IO
|
||||||
|
import qualified Data.Text.Lazy as TextL
|
||||||
|
import qualified Data.Text.Lazy.Encoding as TextL.Encoding
|
||||||
|
import qualified Data.Text.Lazy.IO as TextL.IO
|
||||||
|
import qualified GHC.OldList as List
|
||||||
|
import qualified Safe as Safe
|
||||||
|
import qualified System.Directory
|
||||||
|
import qualified System.IO
|
||||||
|
import qualified Text.PrettyPrint
|
||||||
|
import qualified Text.PrettyPrint.Annotated
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJ
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJClass
|
||||||
|
|
||||||
import Language.Haskell.Brittany.Internal.Utils
|
import Language.Haskell.Brittany.Internal.Utils
|
||||||
import Language.Haskell.Brittany.Internal.Config.Types
|
import Language.Haskell.Brittany.Internal.Config.Types
|
||||||
|
|
|
||||||
|
|
@ -10,7 +10,51 @@ where
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#include "prelude.inc"
|
import Language.Haskell.Brittany.Internal.Prelude
|
||||||
|
import Language.Haskell.Brittany.Internal.PreludeUtils
|
||||||
|
import qualified Control.Monad.Reader.Class as Reader.Class
|
||||||
|
import qualified Control.Monad.RWS.Class as RWS.Class
|
||||||
|
import qualified Control.Monad.State.Class as State.Class
|
||||||
|
import qualified Control.Monad.Trans.Except as ExceptT
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
|
||||||
|
import qualified Control.Monad.Trans.State as State
|
||||||
|
import qualified Control.Monad.Trans.State.Lazy as StateL
|
||||||
|
import qualified Control.Monad.Trans.State.Strict as StateS
|
||||||
|
import qualified Control.Monad.Writer.Class as Writer.Class
|
||||||
|
import qualified Data.Bool as Bool
|
||||||
|
import qualified Data.ByteString
|
||||||
|
import qualified Data.ByteString as ByteString
|
||||||
|
import qualified Data.ByteString.Char8
|
||||||
|
import qualified Data.ByteString.Lazy as ByteStringL
|
||||||
|
import qualified Data.Coerce
|
||||||
|
import qualified Data.Data
|
||||||
|
import qualified Data.Either
|
||||||
|
import qualified Data.Foldable
|
||||||
|
import qualified Data.Foldable as Foldable
|
||||||
|
import qualified Data.IntMap.Lazy as IntMapL
|
||||||
|
import qualified Data.IntMap.Strict as IntMapS
|
||||||
|
import qualified Data.List.Extra
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
import qualified Data.Maybe
|
||||||
|
import qualified Data.Semigroup as Semigroup
|
||||||
|
import qualified Data.Sequence as Seq
|
||||||
|
import qualified Data.Set as Set
|
||||||
|
import qualified Data.Strict.Maybe as Strict
|
||||||
|
import qualified Data.Text as Text
|
||||||
|
import qualified Data.Text.Encoding as Text.Encoding
|
||||||
|
import qualified Data.Text.IO as Text.IO
|
||||||
|
import qualified Data.Text.Lazy as TextL
|
||||||
|
import qualified Data.Text.Lazy.Encoding as TextL.Encoding
|
||||||
|
import qualified Data.Text.Lazy.IO as TextL.IO
|
||||||
|
import qualified GHC.OldList as List
|
||||||
|
import qualified Safe as Safe
|
||||||
|
import qualified System.Directory
|
||||||
|
import qualified System.IO
|
||||||
|
import qualified Text.PrettyPrint
|
||||||
|
import qualified Text.PrettyPrint.Annotated
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJ
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJClass
|
||||||
|
|
||||||
import qualified Language.Haskell.GHC.ExactPrint as ExactPrint
|
import qualified Language.Haskell.GHC.ExactPrint as ExactPrint
|
||||||
import qualified Language.Haskell.GHC.ExactPrint.Types as ExactPrint.Types
|
import qualified Language.Haskell.GHC.ExactPrint.Types as ExactPrint.Types
|
||||||
|
|
|
||||||
|
|
@ -32,7 +32,51 @@ where
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#include "prelude.inc"
|
import Language.Haskell.Brittany.Internal.Prelude
|
||||||
|
import Language.Haskell.Brittany.Internal.PreludeUtils
|
||||||
|
import qualified Control.Monad.Reader.Class as Reader.Class
|
||||||
|
import qualified Control.Monad.RWS.Class as RWS.Class
|
||||||
|
import qualified Control.Monad.State.Class as State.Class
|
||||||
|
import qualified Control.Monad.Trans.Except as ExceptT
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
|
||||||
|
import qualified Control.Monad.Trans.State as State
|
||||||
|
import qualified Control.Monad.Trans.State.Lazy as StateL
|
||||||
|
import qualified Control.Monad.Trans.State.Strict as StateS
|
||||||
|
import qualified Control.Monad.Writer.Class as Writer.Class
|
||||||
|
import qualified Data.Bool as Bool
|
||||||
|
import qualified Data.ByteString
|
||||||
|
import qualified Data.ByteString as ByteString
|
||||||
|
import qualified Data.ByteString.Char8
|
||||||
|
import qualified Data.ByteString.Lazy as ByteStringL
|
||||||
|
import qualified Data.Coerce
|
||||||
|
import qualified Data.Data
|
||||||
|
import qualified Data.Either
|
||||||
|
import qualified Data.Foldable
|
||||||
|
import qualified Data.Foldable as Foldable
|
||||||
|
import qualified Data.IntMap.Lazy as IntMapL
|
||||||
|
import qualified Data.IntMap.Strict as IntMapS
|
||||||
|
import qualified Data.List.Extra
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
import qualified Data.Maybe
|
||||||
|
import qualified Data.Semigroup as Semigroup
|
||||||
|
import qualified Data.Sequence as Seq
|
||||||
|
import qualified Data.Set as Set
|
||||||
|
import qualified Data.Strict.Maybe as Strict
|
||||||
|
import qualified Data.Text as Text
|
||||||
|
import qualified Data.Text.Encoding as Text.Encoding
|
||||||
|
import qualified Data.Text.IO as Text.IO
|
||||||
|
import qualified Data.Text.Lazy as TextL
|
||||||
|
import qualified Data.Text.Lazy.Encoding as TextL.Encoding
|
||||||
|
import qualified Data.Text.Lazy.IO as TextL.IO
|
||||||
|
import qualified GHC.OldList as List
|
||||||
|
import qualified Safe as Safe
|
||||||
|
import qualified System.Directory
|
||||||
|
import qualified System.IO
|
||||||
|
import qualified Text.PrettyPrint
|
||||||
|
import qualified Text.PrettyPrint.Annotated
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJ
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJClass
|
||||||
|
|
||||||
import qualified Language.Haskell.GHC.ExactPrint as ExactPrint
|
import qualified Language.Haskell.GHC.ExactPrint as ExactPrint
|
||||||
import qualified Language.Haskell.GHC.ExactPrint.Annotate as ExactPrint.Annotate
|
import qualified Language.Haskell.GHC.ExactPrint.Annotate as ExactPrint.Annotate
|
||||||
|
|
|
||||||
|
|
@ -4,7 +4,51 @@ module Language.Haskell.Brittany.Main (main) where
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#include "prelude.inc"
|
import Language.Haskell.Brittany.Internal.Prelude
|
||||||
|
import Language.Haskell.Brittany.Internal.PreludeUtils
|
||||||
|
import qualified Control.Monad.Reader.Class as Reader.Class
|
||||||
|
import qualified Control.Monad.RWS.Class as RWS.Class
|
||||||
|
import qualified Control.Monad.State.Class as State.Class
|
||||||
|
import qualified Control.Monad.Trans.Except as ExceptT
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL
|
||||||
|
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
|
||||||
|
import qualified Control.Monad.Trans.State as State
|
||||||
|
import qualified Control.Monad.Trans.State.Lazy as StateL
|
||||||
|
import qualified Control.Monad.Trans.State.Strict as StateS
|
||||||
|
import qualified Control.Monad.Writer.Class as Writer.Class
|
||||||
|
import qualified Data.Bool as Bool
|
||||||
|
import qualified Data.ByteString
|
||||||
|
import qualified Data.ByteString as ByteString
|
||||||
|
import qualified Data.ByteString.Char8
|
||||||
|
import qualified Data.ByteString.Lazy as ByteStringL
|
||||||
|
import qualified Data.Coerce
|
||||||
|
import qualified Data.Data
|
||||||
|
import qualified Data.Either
|
||||||
|
import qualified Data.Foldable
|
||||||
|
import qualified Data.Foldable as Foldable
|
||||||
|
import qualified Data.IntMap.Lazy as IntMapL
|
||||||
|
import qualified Data.IntMap.Strict as IntMapS
|
||||||
|
import qualified Data.List.Extra
|
||||||
|
import qualified Data.Map as Map
|
||||||
|
import qualified Data.Maybe
|
||||||
|
import qualified Data.Semigroup as Semigroup
|
||||||
|
import qualified Data.Sequence as Seq
|
||||||
|
import qualified Data.Set as Set
|
||||||
|
import qualified Data.Strict.Maybe as Strict
|
||||||
|
import qualified Data.Text as Text
|
||||||
|
import qualified Data.Text.Encoding as Text.Encoding
|
||||||
|
import qualified Data.Text.IO as Text.IO
|
||||||
|
import qualified Data.Text.Lazy as TextL
|
||||||
|
import qualified Data.Text.Lazy.Encoding as TextL.Encoding
|
||||||
|
import qualified Data.Text.Lazy.IO as TextL.IO
|
||||||
|
import qualified GHC.OldList as List
|
||||||
|
import qualified Safe as Safe
|
||||||
|
import qualified System.Directory
|
||||||
|
import qualified System.IO
|
||||||
|
import qualified Text.PrettyPrint
|
||||||
|
import qualified Text.PrettyPrint.Annotated
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJ
|
||||||
|
import qualified Text.PrettyPrint.Annotated.HughesPJClass
|
||||||
|
|
||||||
-- brittany { lconfig_importAsColumn: 60, lconfig_importColumn: 60 }
|
-- brittany { lconfig_importAsColumn: 60, lconfig_importColumn: 60 }
|
||||||
import qualified Language.Haskell.GHC.ExactPrint as ExactPrint
|
import qualified Language.Haskell.GHC.ExactPrint as ExactPrint
|
||||||
|
|
|
||||||
|
|
@ -1,147 +0,0 @@
|
||||||
import qualified Data.ByteString
|
|
||||||
-- import qualified Data.ByteString.Builder
|
|
||||||
-- import qualified Data.ByteString.Builder.Extra
|
|
||||||
-- import qualified Data.ByteString.Builder.Prim
|
|
||||||
import qualified Data.ByteString.Char8
|
|
||||||
-- import qualified Data.ByteString.Lazy.Builder
|
|
||||||
-- import qualified Data.ByteString.Lazy.Builder.ASCII
|
|
||||||
-- import qualified Data.ByteString.Lazy.Builder.Extras
|
|
||||||
-- import qualified Data.ByteString.Lazy.Char8
|
|
||||||
-- import qualified Data.ByteString.Lazy
|
|
||||||
-- import qualified Data.ByteString.Short
|
|
||||||
-- import qualified Data.ByteString.Unsafe
|
|
||||||
|
|
||||||
-- import qualified Data.Graph
|
|
||||||
-- import qualified Data.IntMap
|
|
||||||
-- import qualified Data.IntMap.Lazy
|
|
||||||
-- import qualified Data.IntMap.Strict
|
|
||||||
-- import qualified Data.IntSet
|
|
||||||
-- import qualified Data.Map
|
|
||||||
-- import qualified Data.Map.Lazy
|
|
||||||
-- import qualified Data.Map.Strict
|
|
||||||
-- import qualified Data.Sequence
|
|
||||||
-- import qualified Data.Set
|
|
||||||
-- import qualified Data.Tree
|
|
||||||
|
|
||||||
import qualified System.Directory
|
|
||||||
|
|
||||||
-- import qualified Control.Concurrent.Extra
|
|
||||||
-- import qualified Control.Exception.Extra
|
|
||||||
-- import qualified Control.Monad.Extra
|
|
||||||
-- import qualified Data.Either.Extra
|
|
||||||
-- import qualified Data.IORef.Extra
|
|
||||||
import qualified Data.List.Extra
|
|
||||||
-- import qualified Data.Tuple.Extra
|
|
||||||
-- import qualified Data.Version.Extra
|
|
||||||
-- import qualified Numeric.Extra
|
|
||||||
-- import qualified System.Directory.Extra
|
|
||||||
-- import qualified System.Environment.Extra
|
|
||||||
-- import qualified System.IO.Extra
|
|
||||||
-- import qualified System.Info.Extra
|
|
||||||
-- import qualified System.Process.Extra
|
|
||||||
-- import qualified System.Time.Extra
|
|
||||||
|
|
||||||
-- import qualified Control.Monad.Trans.MultiRWS.Lazy
|
|
||||||
-- import qualified Control.Monad.Trans.MultiRWS.Strict
|
|
||||||
-- import qualified Control.Monad.Trans.MultiReader
|
|
||||||
-- import qualified Control.Monad.Trans.MultiReader.Class
|
|
||||||
-- import qualified Control.Monad.Trans.MultiReader.Lazy
|
|
||||||
-- import qualified Control.Monad.Trans.MultiReader.Strict
|
|
||||||
-- import qualified Control.Monad.Trans.MultiState
|
|
||||||
-- import qualified Control.Monad.Trans.MultiState.Class
|
|
||||||
-- import qualified Control.Monad.Trans.MultiState.Lazy
|
|
||||||
-- import qualified Control.Monad.Trans.MultiState.Strict
|
|
||||||
-- import qualified Control.Monad.Trans.MultiWriter
|
|
||||||
-- import qualified Control.Monad.Trans.MultiWriter.Class
|
|
||||||
-- import qualified Control.Monad.Trans.MultiWriter.Lazy
|
|
||||||
-- import qualified Control.Monad.Trans.MultiWriter.Strict
|
|
||||||
|
|
||||||
import qualified Control.Monad.Trans.MultiRWS.Strict as MultiRWSS
|
|
||||||
import qualified Control.Monad.Trans.MultiRWS.Lazy as MultiRWSL
|
|
||||||
|
|
||||||
import qualified Text.PrettyPrint
|
|
||||||
|
|
||||||
import qualified Text.PrettyPrint.Annotated
|
|
||||||
import qualified Text.PrettyPrint.Annotated.HughesPJ
|
|
||||||
import qualified Text.PrettyPrint.Annotated.HughesPJClass
|
|
||||||
|
|
||||||
-- import qualified Text.PrettyPrint.HughesPJ
|
|
||||||
-- import qualified Text.PrettyPrint.HughesPJClass
|
|
||||||
|
|
||||||
-- import qualified Data.Text
|
|
||||||
-- import qualified Data.Text.Array
|
|
||||||
-- import qualified Data.Text.Encoding
|
|
||||||
-- import qualified Data.Text.Encoding.Error
|
|
||||||
-- import qualified Data.Text.Foreign
|
|
||||||
-- import qualified Data.Text.IO
|
|
||||||
-- import qualified Data.Text.Lazy
|
|
||||||
-- import qualified Data.Text.Lazy.Builder
|
|
||||||
|
|
||||||
-- import qualified Data.Bifunctor
|
|
||||||
-- import qualified Data.Bits
|
|
||||||
-- import qualified Data.Bool
|
|
||||||
-- import qualified Data.Char
|
|
||||||
import qualified Data.Coerce
|
|
||||||
-- import qualified Data.Complex
|
|
||||||
import qualified Data.Data
|
|
||||||
-- import qualified Data.Dynamic
|
|
||||||
import qualified Data.Either
|
|
||||||
-- import qualified Data.Eq
|
|
||||||
-- import qualified Data.Fixed
|
|
||||||
import qualified Data.Foldable
|
|
||||||
-- import qualified Data.Function
|
|
||||||
-- import qualified Data.Functor
|
|
||||||
-- import qualified Data.Functor.Identity
|
|
||||||
-- import qualified Data.IORef
|
|
||||||
-- import qualified Data.Int
|
|
||||||
-- import qualified Data.Ix
|
|
||||||
-- import qualified Data.List
|
|
||||||
import qualified Data.Maybe
|
|
||||||
-- import qualified Data.Monoid
|
|
||||||
-- import qualified Data.Ord
|
|
||||||
-- import qualified Data.Proxy
|
|
||||||
-- import qualified Debug.Trace
|
|
||||||
-- import qualified Numeric
|
|
||||||
-- import qualified Numeric.Natural
|
|
||||||
import qualified System.IO
|
|
||||||
-- import qualified Unsafe.Coerce
|
|
||||||
|
|
||||||
import qualified Data.Bool as Bool
|
|
||||||
import qualified Data.Foldable as Foldable
|
|
||||||
import qualified GHC.OldList as List
|
|
||||||
|
|
||||||
import qualified Data.Semigroup as Semigroup
|
|
||||||
|
|
||||||
import qualified Data.ByteString as ByteString
|
|
||||||
import qualified Data.ByteString.Lazy as ByteStringL
|
|
||||||
|
|
||||||
import qualified Data.IntMap.Lazy as IntMapL
|
|
||||||
import qualified Data.IntMap.Strict as IntMapS
|
|
||||||
import qualified Data.Map as Map
|
|
||||||
import qualified Data.Sequence as Seq
|
|
||||||
import qualified Data.Set as Set
|
|
||||||
|
|
||||||
import qualified Control.Monad.RWS.Class as RWS.Class
|
|
||||||
import qualified Control.Monad.Reader.Class as Reader.Class
|
|
||||||
import qualified Control.Monad.State.Class as State.Class
|
|
||||||
import qualified Control.Monad.Writer.Class as Writer.Class
|
|
||||||
|
|
||||||
import qualified Data.Text as Text
|
|
||||||
import qualified Data.Text.Encoding as Text.Encoding
|
|
||||||
import qualified Data.Text.IO as Text.IO
|
|
||||||
import qualified Data.Text.Lazy as TextL
|
|
||||||
import qualified Data.Text.Lazy.Encoding as TextL.Encoding
|
|
||||||
import qualified Data.Text.Lazy.IO as TextL.IO
|
|
||||||
|
|
||||||
import qualified Control.Monad.Trans.State as State
|
|
||||||
import qualified Control.Monad.Trans.State.Lazy as StateL
|
|
||||||
import qualified Control.Monad.Trans.State.Strict as StateS
|
|
||||||
import qualified Control.Monad.Trans.Except as ExceptT
|
|
||||||
|
|
||||||
import qualified Data.Strict.Maybe as Strict
|
|
||||||
|
|
||||||
import qualified Safe as Safe
|
|
||||||
|
|
||||||
|
|
||||||
import Language.Haskell.Brittany.Internal.Prelude
|
|
||||||
import Language.Haskell.Brittany.Internal.PreludeUtils
|
|
||||||
Loading…
Reference in New Issue