Skip to content

Commit 8fa7f40

Browse files
raehikraehik
committed
remove unused dependencies in parsers
1 parent d5d68b5 commit 8fa7f40

File tree

5 files changed

+20
-59
lines changed

5 files changed

+20
-59
lines changed

‎src/Language/Fortran/Parser/Fixed/Fortran66.y‎

Lines changed: 6 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -3,28 +3,26 @@
33
{
44
module Language.Fortran.Parser.Fixed.Fortran66
55
( programParser
6+
, blockParser
67
, statementParser
78
, expressionParser
89
) where
910

10-
import Prelude hiding ( EQ, LT, GT ) -- Same constructors exist in the AST
11-
12-
import Control.Monad.State
13-
import Data.Maybe ( isNothing, fromJust )
14-
import qualified Data.ByteString.Char8 as B
1511
import Language.Fortran.Version
1612
import Language.Fortran.Util.Position
17-
import Language.Fortran.Util.ModFile
1813
import Language.Fortran.Parser.Monad
1914
import Language.Fortran.Parser.Fixed.Lexer
2015
import Language.Fortran.Parser.Fixed.Utils
2116
import Language.Fortran.AST
2217
import Language.Fortran.AST.RealLit
2318

19+
import Prelude hiding ( EQ, LT, GT ) -- Same constructors exist in the AST
20+
2421
}
2522

26-
%name programParser PROGRAM
27-
%name statementParser STATEMENT
23+
%name programParser PROGRAM
24+
%name blockParser BLOCK
25+
%name statementParser STATEMENT
2826
%name expressionParser EXPRESSION
2927
%monad { LexAction }
3028
%lexer { lexer } { TEOF _ }

‎src/Language/Fortran/Parser/Fixed/Fortran77.y‎

Lines changed: 3 additions & 13 deletions
Original file line numberDiff line numberDiff line change
@@ -9,26 +9,16 @@ module Language.Fortran.Parser.Fixed.Fortran77
99
, includesParser
1010
) where
1111

12-
import Prelude hiding ( EQ, LT, GT ) -- Same constructors exist in the AST
13-
14-
import Control.Monad.State
15-
import Data.List
16-
import Data.Maybe ( isNothing, fromJust )
17-
import qualified Data.ByteString.Char8 as B
18-
import qualified Data.Map as M
1912
import Language.Fortran.Version
2013
import Language.Fortran.Util.Position
21-
import Language.Fortran.Util.ModFile
2214
import Language.Fortran.Parser.Monad
23-
import Language.Fortran.Parser.Fixed.Lexer hiding ( Move(..) )
15+
import Language.Fortran.Parser.Fixed.Lexer
2416
import Language.Fortran.Parser.Fixed.Utils
2517
import Language.Fortran.AST
2618
import Language.Fortran.AST.RealLit
2719

28-
import Data.Generics.Uniplate.Operations
29-
import System.Directory
30-
import System.FilePath
31-
import Control.Exception
20+
import Prelude hiding ( EQ, LT, GT ) -- Same constructors exist in the AST
21+
import Data.Maybe ( isNothing, fromJust )
3222

3323
}
3424

‎src/Language/Fortran/Parser/Free/Fortran2003.y‎

Lines changed: 3 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,6 @@
11
-- -*- Mode: Haskell -*-
22
-- vim: ft=haskell
33
{
4-
-- Incomplete work-in-progress.
54
module Language.Fortran.Parser.Free.Fortran2003
65
( programParser
76
, functionParser
@@ -10,22 +9,16 @@ module Language.Fortran.Parser.Free.Fortran2003
109
, expressionParser
1110
) where
1211

13-
import Prelude hiding (EQ,LT,GT) -- Same constructors exist in the AST
14-
import Control.Monad.State
15-
import Data.Maybe (fromMaybe, isJust)
16-
import Data.List (nub)
17-
import Data.Either (either, lefts, rights, partitionEithers)
18-
import Control.Applicative
19-
import qualified Data.ByteString.Char8 as B
20-
2112
import Language.Fortran.Version
2213
import Language.Fortran.Util.Position
23-
import Language.Fortran.Util.ModFile
2414
import Language.Fortran.Parser.Monad
2515
import Language.Fortran.Parser.Free.Lexer
2616
import Language.Fortran.Parser.Free.Utils
2717
import Language.Fortran.AST
2818

19+
import Prelude hiding ( EQ, LT, GT ) -- Same constructors exist in the AST
20+
import Data.Either ( partitionEithers )
21+
2922
}
3023

3124
%name programParser PROGRAM

‎src/Language/Fortran/Parser/Free/Fortran90.y‎

Lines changed: 2 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -9,23 +9,15 @@ module Language.Fortran.Parser.Free.Fortran90
99
, expressionParser
1010
) where
1111

12-
import Prelude hiding (EQ,LT,GT) -- Same constructors exist in the AST
13-
import Control.Monad.State (get)
14-
import Data.Maybe (fromMaybe)
15-
import Data.Either (partitionEithers)
16-
import qualified Data.ByteString.Char8 as B
17-
18-
import Control.Monad.State
19-
2012
import Language.Fortran.Version
2113
import Language.Fortran.Util.Position
22-
import Language.Fortran.Util.ModFile
2314
import Language.Fortran.Parser.Monad
2415
import Language.Fortran.Parser.Free.Lexer
2516
import Language.Fortran.Parser.Free.Utils
2617
import Language.Fortran.AST
2718

28-
import Debug.Trace
19+
import Prelude hiding ( EQ, LT, GT ) -- Same constructors exist in the AST
20+
import Data.Either ( partitionEithers )
2921

3022
}
3123

‎src/Language/Fortran/Parser/Free/Fortran95.y‎

Lines changed: 6 additions & 18 deletions
Original file line numberDiff line numberDiff line change
@@ -9,34 +9,22 @@ module Language.Fortran.Parser.Free.Fortran95
99
, expressionParser
1010
) where
1111

12-
import Prelude hiding (EQ,LT,GT) -- Same constructors exist in the AST
13-
import Control.Monad.State
14-
import Data.Maybe (fromMaybe, isJust)
15-
import Data.List (nub)
16-
import Data.Either (either, lefts, rights, partitionEithers)
17-
import Control.Applicative
18-
import qualified Data.ByteString.Char8 as B
19-
20-
#ifdef DEBUG
21-
import Data.Data (toConstr)
22-
#endif
23-
2412
import Language.Fortran.Version
2513
import Language.Fortran.Util.Position
26-
import Language.Fortran.Util.ModFile
2714
import Language.Fortran.Parser.Monad
2815
import Language.Fortran.Parser.Free.Lexer
2916
import Language.Fortran.Parser.Free.Utils
3017
import Language.Fortran.AST
3118

32-
import Debug.Trace
19+
import Prelude hiding ( EQ, LT, GT ) -- Same constructors exist in the AST
20+
import Data.Either ( partitionEithers )
3321

3422
}
3523

36-
%name programParser PROGRAM
37-
%name functionParser SUBPROGRAM_UNIT
38-
%name blockParser BLOCK
39-
%name statementParser STATEMENT
24+
%name programParser PROGRAM
25+
%name functionParser SUBPROGRAM_UNIT
26+
%name blockParser BLOCK
27+
%name statementParser STATEMENT
4028
%name expressionParser EXPRESSION
4129
%monad { LexAction }
4230
%lexer { lexer } { TEOF _ }

0 commit comments

Comments
 (0)