Return the app state as a simple dashboard

1 files changed, 13 insertions, 0 deletions

diff --git a/Com/Simatime/Alpha.hs b/Com/Simatime/Alpha.hs
index 8f5a506..cc3d23c 100644
--- a/Com/Simatime/Alpha.hs
+++ b/Com/Simatime/Alpha.hs
@@ -11,6 +11,9 @@ module Com.Simatime.Alpha
   , (/>)
   , (</)
   , (<//)
+  -- * Text
+  , chomp
+  , lchomp
   -- * Debugging tools
   , say
   -- * TODO: remove this
@@ -22,6 +25,8 @@ import           Data.Function                  ( (&) )
 import           Data.Functor                   ( (<&>) )
 import           Data.String
 import           Data.Text                      ( Text )
+import qualified Data.Text                     as Text
+import qualified Data.Text.Lazy                as LazyText
 import qualified Prelude
 import           Protolude                     as X
 
@@ -63,3 +68,11 @@ infixr 0 <|
 -- functor. Could also be defined as `f >>= return . g`
 (/>) :: Functor f => f a -> (a -> b) -> f b
 (/>) = (<&>)
+
+-- | Removes newlines from text.
+chomp :: Text -> Text
+chomp = Text.filter (/= '\n')
+
+-- | Removes newlines from lazy text.
+lchomp :: LazyText.Text -> LazyText.Text
+lchomp = LazyText.filter (/= '\n')