Factor Analysis into own module

1 files changed, 5 insertions, 0 deletions

diff --git a/Alpha.hs b/Alpha.hs
index 6245614..1da1f1a 100644
--- a/Alpha.hs
+++ b/Alpha.hs
@@ -66,6 +66,7 @@ module Alpha
     -- * String
     capitalize,
     lowercase,
+    strip,
 
     -- * Lists
     list,
@@ -184,6 +185,10 @@ _ ?+ [] = panic "wutlus: empty cond list"
 (?<) :: Bool -> (Bool -> Text -> a) -> Text -> a
 a ?< f = if not a then f a else panic "wutgal failed"
 
+-- | Removes newlinse from a string.
+strip :: String -> String
+strip = filter (/= '\n')
+
 -- | Removes newlines from text.
 chomp :: Text -> Text
 chomp = Text.filter (/= '\n')