{-# LANGUAGE OverloadedStrings #-} module Main where import Web.Scotty import Data.Char import Control.Monad.IO.Class import Database.HDBC.Sqlite3 import Database.HDBC import Data.List.Split import Data.Text.Lazy.Encoding (decodeUtf8) import Data.Text.Lazy hiding (splitOn,map,concat) import Data.Time import Database import Todo import Stats getDone = makeQuery "select Title, time from todo where due = Date('now','+1 day') and state = 0" getWeeks = do raw <- makeQuery "select id, Title from weeks where state = 1 order by Title" return $ Prelude.mapM (\x -> [Prelude.head x ,( Prelude.tail (Prelude.last x))]) raw getIndex :: [[Char]] -> Int -> [Char] getIndex str i = (Data.List.Split.splitOn "=" (str !! i)) !! 1 convDate :: String -> String convDate date = newDate where split = Data.List.Split.splitOn "%2F" date newDate = (split !! 2) ++ "-" ++ (split !! 0) ++ "-" ++ (split !! 1) makeRadio x = "