22616a1 · rowtype-yoga/purescript-native

psc-ide-client/Main.hs−1

compare with golang

unifiedsplit

@@ -1,4 +1,3 @@

1−{-# LANGUAGE OverloadedStrings #-}

2module Main where

1module Main where

3

2

4import Prelude ()

3import Prelude ()

src/Language/PureScript/AST/Operators.hs−2

@@ -1,5 +1,3 @@

1−{-# LANGUAGE OverloadedStrings #-}

2−

3-- |

1-- |

4-- Operators fixity and associativity

2-- Operators fixity and associativity

5--

3--

src/Language/PureScript/AST/SourcePos.hs−2

@@ -1,5 +1,3 @@

1−{-# LANGUAGE OverloadedStrings #-}

2−

3-- |

1-- |

4-- Source position information

2-- Source position information

5--

3--

src/Language/PureScript/Docs/Convert.hs−2

@@ -1,5 +1,3 @@

1−{-# LANGUAGE OverloadedStrings #-}

2−

3-- | Functions for converting PureScript ASTs into values of the data types

1-- | Functions for converting PureScript ASTs into values of the data types

4-- from Language.PureScript.Docs.

2-- from Language.PureScript.Docs.

5

3

src/Language/PureScript/Docs/Types.hs−2

@@ -1,5 +1,3 @@

1−{-# LANGUAGE OverloadedStrings #-}

2−

3module Language.PureScript.Docs.Types

1module Language.PureScript.Docs.Types

4 ( module Language.PureScript.Docs.Types

2 ( module Language.PureScript.Docs.Types

5 , module ReExports

3 , module ReExports

src/Language/PureScript/Ide.hs+3−4

@@ -12,7 +12,6 @@

12-- Interface for the psc-ide-server

13-----------------------------------------------------------------------------

14

15−{-# LANGUAGE OverloadedStrings #-}

16{-# LANGUAGE PackageImports #-}

15{-# LANGUAGE PackageImports #-}

17{-# LANGUAGE TemplateHaskell #-}

16{-# LANGUAGE TemplateHaskell #-}

18

17

@@ -175,12 +174,12 @@ loadModules moduleNames = do

175 efiles <- traverse readExternFile efPaths

174 efiles <- traverse readExternFile efPaths

176 traverse_ insertExterns efiles

175 traverse_ insertExterns efiles

177

176

178− -- We parse all source files, log eventual parse failures if the debug flag

177+ -- We parse all source files, log eventual parse failures and insert the

179− -- was set and insert the succesful parses into the state.

178+ -- successful parses into the state.

180 (failures, allModules) <-

179 (failures, allModules) <-

181 partitionEithers <$> (traverse parseModule =<< findAllSourceFiles)

180 partitionEithers <$> (traverse parseModule =<< findAllSourceFiles)

182 unless (null failures) $

181 unless (null failures) $

183− $(logDebug) ("Failed to parse: " <> show failures)

182+ $(logWarn) ("Failed to parse: " <> show failures)

184 traverse_ insertModule allModules

183 traverse_ insertModule allModules

185

184

186 -- Finally we kick off the worker with @async@ and return the number of

185 -- Finally we kick off the worker with @async@ and return the number of

src/Language/PureScript/Ide/CaseSplit.hs−2

@@ -12,8 +12,6 @@

12-- Casesplitting and adding function clauses

13-----------------------------------------------------------------------------

14

15−{-# LANGUAGE OverloadedStrings #-}

16−

17module Language.PureScript.Ide.CaseSplit

15module Language.PureScript.Ide.CaseSplit

18 ( WildcardAnnotations()

16 ( WildcardAnnotations()

19 , explicitAnnotations

17 , explicitAnnotations

src/Language/PureScript/Ide/Command.hs−3

@@ -12,9 +12,6 @@

12-- Datatypes for the commands psc-ide accepts

13-----------------------------------------------------------------------------

14

15−{-# LANGUAGE OverloadedStrings #-}

16−

17−

18module Language.PureScript.Ide.Command where

15module Language.PureScript.Ide.Command where

19

16

20import Protolude

17import Protolude

src/Language/PureScript/Ide/Completion.hs−1

@@ -1,4 +1,3 @@

1−{-# LANGUAGE OverloadedStrings #-}

2module Language.PureScript.Ide.Completion

1module Language.PureScript.Ide.Completion

3 ( getCompletions

2 ( getCompletions

4 , getExactMatches

3 , getExactMatches

src/Language/PureScript/Ide/Error.hs−1

@@ -12,7 +12,6 @@

12-- Error types for psc-ide

13-----------------------------------------------------------------------------

14

15−{-# LANGUAGE OverloadedStrings #-}

16module Language.PureScript.Ide.Error

15module Language.PureScript.Ide.Error

17 ( PscIdeError(..)

16 ( PscIdeError(..)

18 ) where

17 ) where

src/Language/PureScript/Ide/Externs.hs−1

@@ -12,7 +12,6 @@

12-- Handles externs files for psc-ide

13-----------------------------------------------------------------------------

14

15−{-# LANGUAGE RecordWildCards #-}

16{-# LANGUAGE PackageImports #-}

15{-# LANGUAGE PackageImports #-}

17

16

18module Language.PureScript.Ide.Externs

17module Language.PureScript.Ide.Externs

src/Language/PureScript/Ide/Filter.hs−1

@@ -13,7 +13,6 @@

13-----------------------------------------------------------------------------

14

15{-# LANGUAGE GeneralizedNewtypeDeriving #-}

16−{-# LANGUAGE OverloadedStrings #-}

17

16

18module Language.PureScript.Ide.Filter

17module Language.PureScript.Ide.Filter

19 ( Filter

18 ( Filter

src/Language/PureScript/Ide/Imports.hs−2

@@ -12,8 +12,6 @@

12-- Provides functionality to manage imports

13-----------------------------------------------------------------------------

14

15−{-# LANGUAGE OverloadedStrings #-}

16−

17module Language.PureScript.Ide.Imports

15module Language.PureScript.Ide.Imports

18 ( addImplicitImport

16 ( addImplicitImport

19 , addImportForIdentifier

17 , addImportForIdentifier

src/Language/PureScript/Ide/Matcher.hs−1

@@ -14,7 +14,6 @@

14

15{-# LANGUAGE FlexibleInstances #-}

16{-# LANGUAGE GeneralizedNewtypeDeriving #-}

17−{-# LANGUAGE OverloadedStrings #-}

18

17

19module Language.PureScript.Ide.Matcher

18module Language.PureScript.Ide.Matcher

20 ( Matcher

19 ( Matcher

src/Language/PureScript/Ide/Pursuit.hs−2

@@ -12,8 +12,6 @@

12-- Pursuit client for psc-ide

13-----------------------------------------------------------------------------

14

15−{-# LANGUAGE OverloadedStrings #-}

16−

17module Language.PureScript.Ide.Pursuit

15module Language.PureScript.Ide.Pursuit

18 ( searchPursuitForDeclarations

16 ( searchPursuitForDeclarations

19 , findPackagesForModuleIdent

17 , findPackagesForModuleIdent

src/Language/PureScript/Ide/Rebuild.hs−3

@@ -1,8 +1,5 @@

1−{-# LANGUAGE OverloadedStrings #-}

2{-# LANGUAGE PackageImports #-}

1{-# LANGUAGE PackageImports #-}

3−{-# LANGUAGE RecordWildCards #-}

4{-# LANGUAGE TemplateHaskell #-}

2{-# LANGUAGE TemplateHaskell #-}

5−{-# LANGUAGE TupleSections #-}

6

3

7module Language.PureScript.Ide.Rebuild

4module Language.PureScript.Ide.Rebuild

8 ( rebuildFile

5 ( rebuildFile

src/Language/PureScript/Ide/Reexports.hs−3

@@ -13,9 +13,6 @@

13-- Resolves reexports for psc-ide

14-----------------------------------------------------------------------------

15

16−{-# LANGUAGE OverloadedStrings #-}

17−{-# LANGUAGE RecordWildCards #-}

18−

19module Language.PureScript.Ide.Reexports

16module Language.PureScript.Ide.Reexports

20 ( resolveReexports

17 ( resolveReexports

21 , prettyPrintReexportResult

18 , prettyPrintReexportResult

src/Language/PureScript/Ide/SourceFile.hs−2

@@ -12,8 +12,6 @@

12-- Getting declarations from PureScript sourcefiles

13-----------------------------------------------------------------------------

14

15−{-# LANGUAGE OverloadedStrings #-}

16−

17module Language.PureScript.Ide.SourceFile

15module Language.PureScript.Ide.SourceFile

18 ( parseModule

16 ( parseModule

19 , getImportsForFile

17 , getImportsForFile

src/Language/PureScript/Ide/State.hs−1

@@ -12,7 +12,6 @@

12-- Functions to access psc-ide's state

13-----------------------------------------------------------------------------

14

15−{-# LANGUAGE OverloadedStrings #-}

16{-# LANGUAGE PackageImports #-}

15{-# LANGUAGE PackageImports #-}

17{-# LANGUAGE TemplateHaskell #-}

16{-# LANGUAGE TemplateHaskell #-}

18

17

src/Language/PureScript/Ide/Types.hs−1

@@ -25,7 +25,6 @@ import Data.Aeson

25import qualified Data.Map.Lazy as M

26import qualified Language.PureScript as P

27import qualified Language.PureScript.Errors.JSON as P

28−import Language.PureScript.Ide.Conversions

29

28

30type ModuleIdent = Text

29type ModuleIdent = Text

31

30

src/Language/PureScript/Ide/Util.hs−2

@@ -12,8 +12,6 @@

12-- Generally useful functions

13-----------------------------------------------------------------------------

14

15−{-# LANGUAGE OverloadedStrings #-}

16−

17module Language.PureScript.Ide.Util

15module Language.PureScript.Ide.Util

18 ( identifierFromIdeDeclaration

16 ( identifierFromIdeDeclaration

19 , unwrapMatch

17 , unwrapMatch

src/Language/PureScript/Interactive.hs−4

@@ -1,8 +1,4 @@

1{-# LANGUAGE DoAndIfThenElse #-}

2−{-# LANGUAGE FlexibleContexts #-}

3−{-# LANGUAGE MultiParamTypeClasses #-}

4−{-# LANGUAGE TupleSections #-}

5−{-# LANGUAGE DataKinds #-}

6

2

7module Language.PureScript.Interactive

3module Language.PureScript.Interactive

8 ( handleCommand

4 ( handleCommand

src/Language/PureScript/Interactive/Completion.hs−2

@@ -1,5 +1,3 @@

1−{-# LANGUAGE DataKinds #-}

2−

3module Language.PureScript.Interactive.Completion

1module Language.PureScript.Interactive.Completion

4 ( CompletionM

2 ( CompletionM

5 , liftCompletionM

3 , liftCompletionM

src/Language/PureScript/Interactive/Printer.hs−3

@@ -1,6 +1,3 @@

1−{-# LANGUAGE RecordWildCards #-}

2−{-# LANGUAGE DataKinds #-}

3−

4module Language.PureScript.Interactive.Printer where

1module Language.PureScript.Interactive.Printer where

5

2

6import Prelude.Compat

3import Prelude.Compat

src/Language/PureScript/Make.hs−1

@@ -1,6 +1,5 @@

1{-# LANGUAGE GeneralizedNewtypeDeriving #-}

2{-# LANGUAGE TypeFamilies #-}

3−{-# LANGUAGE OverloadedStrings #-}

4

3

5module Language.PureScript.Make

4module Language.PureScript.Make

6 (

5 (

src/Language/PureScript/Publish.hs−1

@@ -1,5 +1,4 @@

1{-# LANGUAGE GeneralizedNewtypeDeriving #-}

2−{-# LANGUAGE OverloadedStrings #-}

3

2

4module Language.PureScript.Publish

3module Language.PureScript.Publish

5 ( preparePackage

4 ( preparePackage

src/Language/PureScript/Publish/ErrorsWarnings.hs−2

@@ -1,5 +1,3 @@

1−{-# LANGUAGE OverloadedStrings #-}

2−

3module Language.PureScript.Publish.ErrorsWarnings

1module Language.PureScript.Publish.ErrorsWarnings

4 ( PackageError(..)

2 ( PackageError(..)

5 , PackageWarning(..)

3 , PackageWarning(..)

src/Language/PureScript/Sugar/TypeClasses/Deriving.hs−3

@@ -1,6 +1,3 @@

1−{-# LANGUAGE OverloadedStrings #-}

2−{-# LANGUAGE PatternGuards #-}

3−

4-- |

1-- |

5-- This module implements the generic deriving elaboration that takes place during desugaring.

2-- This module implements the generic deriving elaboration that takes place during desugaring.

6--

3--

src/Language/PureScript/TypeChecker/Subsumption.hs−1

@@ -1,4 +1,3 @@

1−{-# LANGUAGE DataKinds #-}

2{-# LANGUAGE GADTs #-}

1{-# LANGUAGE GADTs #-}

3{-# LANGUAGE TypeFamilies #-}

2{-# LANGUAGE TypeFamilies #-}

4

3

src/Language/PureScript/TypeChecker/TypeSearch.hs−4

@@ -1,7 +1,3 @@

1−{-# LANGUAGE NoImplicitPrelude #-}

2−{-# LANGUAGE OverloadedStrings #-}

3−{-# LANGUAGE RecordWildCards #-}

4−

5module Language.PureScript.TypeChecker.TypeSearch

1module Language.PureScript.TypeChecker.TypeSearch

6 ( typeSearch

2 ( typeSearch

7 ) where

3 ) where

src/Language/PureScript/TypeChecker/Types.hs−1

@@ -1,4 +1,3 @@

1−{-# LANGUAGE LambdaCase #-}

2{-# LANGUAGE NamedFieldPuns #-}

1{-# LANGUAGE NamedFieldPuns #-}

3

2

4-- |

3-- |