despair 0.0.1 → 0.0.2

raw patch · 2 files changed

+9/−8 lines, 2 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

Files

• despair.cabal +1/−1
• src/Despair.hs +8/−7

@@ -1,6 +1,6 @@ name:       despair
 category:   Control
-version:    0.0.1
+version:    0.0.2
 author:        Heather Cynede
 maintainer:    Heather Cynede <Cynede@Gentoo.org>
 license: BSD3

@@ -30,12 +30,13 @@     "                         THERE IS NO LIGHT NO HOPE THERE IS ONLY DESPAIR!!!                 "
     ]
 
-despairQuote :: IO()
-despairQuote = 
-    putStrLn =<< ( randomRIO (0, length weakQuotes - 1) 
-                     >>= return . (weakQuotes !!)
-                 )
+despairQuote :: IO String
+despairQuote = randomRIO (0, length weakQuotes - 1) 
+                    >>= return . (weakQuotes !!)
 
 despair :: IO() -> IO()
-despair = bracket_ ( despairQuote )
-                   ( despairQuote )
+despair = bracket_ ( despairQuote >>= \q ->
+                        let cutLen = length $ takeWhile (== ' ') q
+                            startQ = drop cutLen q
+                        in putStrLn startQ
+                    ) (    putStrLn =<< despairQuote )