HTF 0.12.2.2 → 0.12.2.3

raw patch · 3 files changed

+10/−4 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• ChangeLog +3/−0
• HTF.cabal +1/−1
• Test/Framework/Preprocessor.hs +6/−3

@@ -1,3 +1,6 @@+* 0.12.2.3 (2014-10-27)+  - fixed another lexing bug (issue #45)+ * 0.12.2.2 (2014-10-22)   - fixed lexing bug (some source files were not parsed properly)   - fixed bug where wrong module name was generated

@@ -1,5 +1,5 @@ Name:             HTF-Version:          0.12.2.2+Version:          0.12.2.3 License:          LGPL License-File:     LICENSE Copyright:        (c) 2005-2014 Stefan Wehr

@@ -280,15 +280,18 @@ cleanupInputString :: String -> String cleanupInputString s =     case s of+      c:'\'':'\'':x:rest+          | isSpace c && isUpper x ->         -- TH type quote+              c:x:cleanupInputString rest+      c:'\'':'\'':d:rest+          | not (isAlphaNum c) || not (isAlphaNum d)+              -> c:'\'':'x':'\'':d:rest       '\'':rest ->           case characterLitRest rest of             Just (restLit, rest') ->                 '\'':restLit ++ cleanupInputString rest'             Nothing ->                 '\'':cleanupInputString rest-      c:'\'':'\'':x:rest-          | isSpace c && isUpper x ->         -- TH type quote-              c:x:cleanupInputString rest       c:'\'':x:rest                -- TH name quote           | isSpace c && isNothing (characterLitRest (x:rest)) && isLower x ->               c:x:cleanupInputString rest