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/compiler/GF/Text/Lexing.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/compiler/GF/Text') diff --git a/src/compiler/GF/Text/Lexing.hs b/src/compiler/GF/Text/Lexing.hs index 4e07c2126..bfe38ca83 100644 --- a/src/compiler/GF/Text/Lexing.hs +++ b/src/compiler/GF/Text/Lexing.hs @@ -14,7 +14,7 @@ stringOp name = case name of "lexcode" -> Just $ appLexer lexCode "lexmixed" -> Just $ appLexer lexMixed "words" -> Just $ appLexer words - "bind" -> Just $ appUnlexer bindTok + "bind" -> Just $ appUnlexer (unwords . bindTok) "unchars" -> Just $ appUnlexer concat "unlextext" -> Just $ appUnlexer (unlexText . unquote) "unlexcode" -> Just $ appUnlexer unlexCode -- cgit v1.2.3