diff options
| author | John J. Camilleri <john@digitalgrammars.com> | 2021-07-07 13:04:09 +0200 |
|---|---|---|
| committer | John J. Camilleri <john@digitalgrammars.com> | 2021-07-07 13:04:09 +0200 |
| commit | 0954b4cbab2564c4d35043a87fddc9aee26b4166 (patch) | |
| tree | 6dc7a61f11fe83adc06a2e9f120f6d23c7f7a9b1 /src/compiler | |
| parent | f2e52d6f2c2bc90febceebdea0268b40ea37476c (diff) | |
More cabal file cleanup. Remove some more tabs from Haskell source.
Diffstat (limited to 'src/compiler')
| -rw-r--r-- | src/compiler/GF/Interactive2.hs | 2 | ||||
| -rw-r--r-- | src/compiler/SimpleEditor/Syntax.hs | 8 |
2 files changed, 5 insertions, 5 deletions
diff --git a/src/compiler/GF/Interactive2.hs b/src/compiler/GF/Interactive2.hs index 6967309b9..d429b4530 100644 --- a/src/compiler/GF/Interactive2.hs +++ b/src/compiler/GF/Interactive2.hs @@ -437,7 +437,7 @@ wc_type = cmd_name x2 = takeWhile (\c -> isIdent c || isSpace c || c == '-' || c == '=' || c == '"') x1 cmd = case [x | (x,cs) <- RP.readP_to_S pCommand x2, all isSpace cs] of - [x] -> Just x + [x] -> Just x _ -> Nothing isIdent c = c == '_' || c == '\'' || isAlphaNum c diff --git a/src/compiler/SimpleEditor/Syntax.hs b/src/compiler/SimpleEditor/Syntax.hs index 4a5eb6da8..8280ed461 100644 --- a/src/compiler/SimpleEditor/Syntax.hs +++ b/src/compiler/SimpleEditor/Syntax.hs @@ -23,10 +23,10 @@ data Fun = Fun { fname:: FunId, ftype:: Type } data Concrete = Concrete { langcode:: Id, opens:: [ModId], - params:: [Param], - lincats:: [Lincat], - opers:: [Oper], - lins:: [Lin] } + params:: [Param], + lincats:: [Lincat], + opers:: [Oper], + lins:: [Lin] } deriving Show data Param = Param {pname:: Id, prhs:: String} deriving Show |
