25 lines
573 B
Haskell
25 lines
573 B
Haskell
module Core.SQLite where
|
|
|
|
import Core.Configuration
|
|
import Core.Types
|
|
|
|
import Data.ByteString as B
|
|
import Database.SQLite.Simple
|
|
import Database.SQLite.Simple.FromRow
|
|
|
|
import qualified Data.Text as T
|
|
|
|
main :: IO ()
|
|
main = do
|
|
conn <- open dbPath
|
|
execute_ conn
|
|
"CREATE TABLE IF NOT EXISTS pws\
|
|
\ (link TEXT PRIMARY KEY,\
|
|
\ secret TEXT,\
|
|
\ nonce TEXT,\
|
|
\ date DATETIME DEFAULT CURRENT_TIMESTAMP,\
|
|
\ life INT,\
|
|
\ views INT,\
|
|
\ maxViews INT)"
|
|
close conn
|