hlints

vmchale · Oct 22, 2017 · 9239055 · 9239055
1 parent df6bcf0
commit 9239055
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/TODO.md b/TODO.md
@@ -11,6 +11,7 @@ DEFICIENCIES:
 FEATURES:
   - [ ] user-defined modifiers
   - [ ] index for vim
+  - [ ] install `madlang-miso` template for pi?
   - [ ] library/DSL being able to call dependencies
   - [ ] don't require exactly one return statement (or allow library pragma
     thing?)

diff --git a/src/Text/Madlibs/Ana/ParseUtils.hs b/src/Text/Madlibs/Ana/ParseUtils.hs
@@ -32,7 +32,7 @@ modifierList = M.fromList [("to_upper", T.map toUpper)
     , ("to_lower", T.map toLower)
     , ("capitalize", \t -> toUpper (T.head t) `T.cons` T.tail t)
     , ("reverse", T.reverse)
-    , ("titlecase", T.unwords . fmap (\t -> toUpper (T.head t) `T.cons` (T.tail t)) . T.words)
+    , ("titlecase", T.unwords . fmap (\t -> toUpper (T.head t) `T.cons` T.tail t) . T.words) -- FIXME this improperly trims spaces at beginning/end of a word
     , ("reverse_words", T.unwords . reverse . T.words)
     , ("oulipo", T.filter (/='e'))]