summaryrefslogtreecommitdiff
path: root/src/compiler
diff options
context:
space:
mode:
authorJohn J. Camilleri <john@digitalgrammars.com>2021-07-07 13:04:09 +0200
committerJohn J. Camilleri <john@digitalgrammars.com>2021-07-07 13:04:09 +0200
commit0954b4cbab2564c4d35043a87fddc9aee26b4166 (patch)
tree6dc7a61f11fe83adc06a2e9f120f6d23c7f7a9b1 /src/compiler
parentf2e52d6f2c2bc90febceebdea0268b40ea37476c (diff)
More cabal file cleanup. Remove some more tabs from Haskell source.
Diffstat (limited to 'src/compiler')
-rw-r--r--src/compiler/GF/Interactive2.hs2
-rw-r--r--src/compiler/SimpleEditor/Syntax.hs8
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