masakazu-bot 0.3.0.0 → 0.4.0.0
raw patch · 3 files changed
+5/−4 lines, 3 files
Files
- Main.hs +2/−2
- README.md +2/−1
- masakazu-bot.cabal +1/−1
Main.hs view
@@ -102,7 +102,7 @@ ( "" , _ , "help" ) -> do call $ ( update $ T.pack $ "@" ++ ( T.unpack $ userScreenName $ statusUser status ) ++ " Please see https://github.com/minamiyama1994/chomado-bot-on-haskell/blob/minamiyama1994/README.md" ) & inReplyToStatusId ?~ statusId status return ( )- ( "" , _ , 'm' : 'e' : 'm' : 'o' : ' ' : memo ) -> if ( userScreenName $ statusUser status ) == "minamiyama1994"+ ( "" , _ , 'm' : 'e' : 'm' : 'o' : ' ' : memo ) -> if ( userScreenName $ statusUser status ) == "1994minamiyama" then do current <- liftIO getCurrentTime liftIO $ runSqlite dbName $ insert_ $ Memo ( T.pack memo ) current@@ -133,7 +133,7 @@ times <- liftIO $ runSqlite dbName $ selectList [ ] [ ] forM_ times $ \ ( Entity _ time ) -> if matchTime ( addMinutes ( 60 * 9 ) current ) $ timerTime time then do- call $ update $ T.pack $ ( "@minamiyama1994 " ++ ) $ T.unpack $ timerText time+ call $ update $ T.pack $ ( "@1994minamiyama " ++ ) $ T.unpack $ timerText time return ( ) else return ( ) liftIO $ threadDelay $ 1000 * 500
README.md view
@@ -1,7 +1,7 @@ masakazu-bot ====================== -@minamiyama1994_ on haskell+@minamiyama1994\_ on haskell ## Function @@ -13,3 +13,4 @@ * [response example](https://twitter.com/minamiyama1994_/status/489739074102501376) * memo management of @minamiyama1994 * show help+* management timer
masakazu-bot.cabal view
@@ -2,7 +2,7 @@ -- further documentation, see http://haskell.org/cabal/users-guide/ name: masakazu-bot-version: 0.3.0.0+version: 0.4.0.0 synopsis: @minamiyama1994_bot on haskell -- description: homepage: https://github.com/minamiyama1994/chomado-bot-on-haskell/tree/minamiyama1994