From 50ea3d265c35b677b60aa6a465eb19bcd66d25ad Mon Sep 17 00:00:00 2001 From: hallgren Date: Wed, 9 Apr 2014 17:39:21 +0000 Subject: Change the type of PGF.Lexing.bindTok to [String] -> [String] The old type was [String] -> String. This function was only used in GF.Text.Lexing.stringOp, which now uses (unwords . bindTok) instead, with no change in behaviour. --- src/runtime/haskell/PGF/Lexing.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'src/runtime/haskell') diff --git a/src/runtime/haskell/PGF/Lexing.hs b/src/runtime/haskell/PGF/Lexing.hs index a49328826..782757b03 100644 --- a/src/runtime/haskell/PGF/Lexing.hs +++ b/src/runtime/haskell/PGF/Lexing.hs @@ -30,12 +30,12 @@ unlexText = capitInit . unlext where _ -> [] -- | Bind tokens separated by Prelude.BIND, i.e. &+ -bindTok :: [String] -> String +bindTok :: [String] -> [String] bindTok ws = case ws of - w:"&+":ws2 -> w ++ bindTok ws2 - w:[] -> w - w:ws2 -> w ++ " " ++ bindTok ws2 - [] -> "" + w1:"&+":w2:ws -> bindTok ((w1++w2):ws) + "&+":ws -> bindTok ws + w:ws -> w:bindTok ws + [] -> [] -- * Code lexing -- cgit v1.2.3