Safe Haskell	Safe-Inferred
Language	Haskell2010

Model

Contents

FileBookmarks
FileNotes

Synopsis

data User = User {
- userName :: !Text
- userPasswordHash :: !BCrypt
- userApiToken :: !(Maybe HashedApiKey)
- userPrivateDefault :: !Bool
- userArchiveDefault :: !Bool
- userPrivacyLock :: !Bool
}
type UserId = Key User
data Bookmark = Bookmark {
- bookmarkUserId :: !UserId
- bookmarkSlug :: !BmSlug
- bookmarkHref :: !Text
- bookmarkDescription :: !Text
- bookmarkExtended :: !Text
- bookmarkTime :: !UTCTime
- bookmarkShared :: !Bool
- bookmarkToRead :: !Bool
- bookmarkSelected :: !Bool
- bookmarkArchiveHref :: !(Maybe Text)
}
type BookmarkId = Key Bookmark
data BookmarkTag = BookmarkTag {
- bookmarkTagUserId :: !UserId
- bookmarkTagTag :: !Text
- bookmarkTagBookmarkId :: !BookmarkId
- bookmarkTagSeq :: !Int
}
type BookmarkTagId = Key BookmarkTag
data Note = Note {
- noteUserId :: !UserId
- noteSlug :: !NtSlug
- noteLength :: !Int
- noteTitle :: !Text
- noteText :: !Text
- noteIsMarkdown :: !Bool
- noteShared :: !Bool
- noteCreated :: !UTCTime
- noteUpdated :: !UTCTime
}
type NoteId = Key Note
migrateSchema :: Migration
entityDefListFormigrateSchema :: [EntityDef]
newtype UTCTimeStr = UTCTimeStr {
- unUTCTimeStr :: UTCTime
}
newtype UserNameP = UserNameP {
- unUserNameP :: Text
}
newtype TagsP = TagsP {
- unTagsP :: [Text]
}
data SharedP
- = SharedAll
- | SharedPublic
- | SharedPrivate
data FilterP
- = FilterAll
- | FilterUnread
- | FilterUntagged
- | FilterStarred
- | FilterSingle BmSlug
newtype UnreadOnly = UnreadOnly {
- unUnreadOnly :: Bool
}
type Limit = Int64
type Page = Int64
migrateAll :: Migration
dumpMigration :: DB ()
runMigrations :: DB ()
toMigration :: [Text] -> Migration
migrateIndexes :: Migration
sqliteGroupConcat :: PersistField a => SqlExpr (Value a) -> SqlExpr (Value a) -> SqlExpr (Value Text)
authenticatePassword :: Text -> Text -> DB (Maybe (Entity User))
getUserByName :: UserNameP -> DB (Maybe (Entity User))
getApiKeyUser :: ApiKey -> DB (Maybe (Entity User))
bookmarksTagsQuery :: Key User -> SharedP -> FilterP -> [Tag] -> Maybe Text -> Limit -> Page -> DB (Int, [(Entity Bookmark, Maybe Text)])
allUserBookmarks :: Key User -> DB [(Entity Bookmark, Text)]
parseSearchQuery :: (Text -> SqlExpr (Value Bool)) -> Text -> Maybe (SqlQuery ())
parseTimeText :: (ParseTime t, MonadFail m, Alternative m) => Text -> m t
withTags :: Key Bookmark -> DB [Entity BookmarkTag]
getNote :: Key User -> NtSlug -> DB (Maybe (Entity Note))
getNoteList :: Key User -> Maybe Text -> SharedP -> Limit -> Page -> DB (Int, [Entity Note])
mkBookmarkTags :: Key User -> Key Bookmark -> [Tag] -> [BookmarkTag]
fileBookmarkToBookmark :: UserId -> FileBookmark -> IO Bookmark
bookmarkTofileBookmark :: Bookmark -> Text -> FileBookmark
data FFBookmarkNode = FFBookmarkNode {
- firefoxBookmarkChildren :: Maybe [FFBookmarkNode]
- firefoxBookmarkDateAdded :: !POSIXTime
- firefoxBookmarkGuid :: !Text
- firefoxBookmarkIconUri :: !(Maybe Text)
- firefoxBookmarkId :: !Int
- firefoxBookmarkIndex :: !Int
- firefoxBookmarkLastModified :: !POSIXTime
- firefoxBookmarkRoot :: !(Maybe Text)
- firefoxBookmarkTitle :: !Text
- firefoxBookmarkType :: !Text
- firefoxBookmarkTypeCode :: !Int
- firefoxBookmarkUri :: !(Maybe Text)
}
firefoxBookmarkNodeToBookmark :: UserId -> FFBookmarkNode -> IO [Bookmark]
insertFileBookmarks :: Key User -> FilePath -> DB (Either String Int)
insertFFBookmarks :: Key User -> FilePath -> DB (Either String Int)
readFileBookmarks :: MonadIO m => FilePath -> m (Either String [FileBookmark])
readFFBookmarks :: MonadIO m => FilePath -> m (Either String FFBookmarkNode)
exportFileBookmarks :: Key User -> FilePath -> DB ()
getFileBookmarks :: Key User -> DB [FileBookmark]
data TagCloudMode
- = TagCloudModeTop Bool Int
- | TagCloudModeLowerBound Bool Int
- | TagCloudModeRelated Bool [Tag]
- | TagCloudModeNone
isExpanded :: TagCloudMode -> Bool
type Tag = Text
tagCountTop :: Key User -> Int -> DB [(Text, Int)]
tagCountLowerBound :: Key User -> Int -> DB [(Text, Int)]
tagCountRelated :: Key User -> [Tag] -> DB [(Text, Int)]
fileNoteToNote :: UserId -> FileNote -> IO Note
insertDirFileNotes :: Key User -> FilePath -> DB (Either String Int)
data AccountSettingsForm = AccountSettingsForm {
- _privateDefault :: Bool
- _archiveDefault :: Bool
- _privacyLock :: Bool
}
toAccountSettingsForm :: User -> AccountSettingsForm
updateUserFromAccountSettingsForm :: Key User -> AccountSettingsForm -> DB ()
data BookmarkForm = BookmarkForm {
- _url :: Text
- _title :: Maybe Text
- _description :: Maybe Textarea
- _tags :: Maybe Text
- _private :: Maybe Bool
- _toread :: Maybe Bool
- _bid :: Maybe Int64
- _slug :: Maybe BmSlug
- _selected :: Maybe Bool
- _time :: Maybe UTCTimeStr
- _archiveUrl :: Maybe Text
}
gDefaultFormOptions :: Options
toBookmarkFormList :: [(Entity Bookmark, Maybe Text)] -> [BookmarkForm]
_toBookmarkForm :: (Entity Bookmark, [Entity BookmarkTag]) -> BookmarkForm
_toBookmarkForm' :: (Entity Bookmark, Maybe Text) -> BookmarkForm
_toBookmark :: UserId -> BookmarkForm -> IO Bookmark
fetchBookmarkByUrl :: Key User -> Maybe Text -> DB (Maybe (Entity Bookmark, [Entity BookmarkTag]))
data UpsertResult a
- = Created a
- | Updated a
- | Failed String
maybeUpsertResult :: UpsertResult a -> Maybe a
upsertBookmark :: Key User -> Maybe (Key Bookmark) -> Bookmark -> [Text] -> DB (UpsertResult (Key Bookmark))
updateBookmarkArchiveUrl :: Key User -> Key Bookmark -> Maybe Text -> DB ()
upsertNote :: Key User -> Maybe (Key Note) -> Note -> DB (UpsertResult (Key Note))
data FileBookmark = FileBookmark {
- fileBookmarkHref :: !Text
- fileBookmarkDescription :: !Text
- fileBookmarkExtended :: !Text
- fileBookmarkTime :: !UTCTime
- fileBookmarkShared :: !Bool
- fileBookmarkToRead :: !Bool
- fileBookmarkSelected :: !(Maybe Bool)
- fileBookmarkArchiveHref :: !(Maybe Text)
- fileBookmarkTags :: !Text
}
boolFromYesNo :: Text -> Bool
boolToYesNo :: Bool -> Text
data FileNote = FileNote {
- fileNoteId :: !Text
- fileNoteTitle :: !Text
- fileNoteText :: !Text
- fileNoteLength :: !Int
- fileNoteCreatedAt :: !UTCTime
- fileNoteUpdatedAt :: !UTCTime
}
readFileNoteTime :: MonadFail m => String -> m UTCTime
showFileNoteTime :: UTCTime -> String

Documentation

data User Source #

Constructors

User
Fields userName :: !Text userPasswordHash :: !BCrypt userApiToken :: !(Maybe HashedApiKey) userPrivateDefault :: !Bool userArchiveDefault :: !Bool userPrivacyLock :: !Bool

Instances

Instances details

FromJSON User Source #
Instance details Defined in Model Methods parseJSON :: Value -> Parser User # parseJSONList :: Value -> Parser [User] #
ToJSON User Source #
Instance details Defined in Model Methods toJSON :: User -> Value # toEncoding :: User -> Encoding # toJSONList :: [User] -> Value # toEncodingList :: [User] -> Encoding #
Show User Source #
Instance details Defined in Model Methods showsPrec :: Int -> User -> ShowS # show :: User -> String # showList :: [User] -> ShowS #
Eq User Source #
Instance details Defined in Model Methods (==) :: User -> User -> Bool # (/=) :: User -> User -> Bool #
Ord User Source #
Instance details Defined in Model Methods compare :: User -> User -> Ordering # (<) :: User -> User -> Bool # (<=) :: User -> User -> Bool # (>) :: User -> User -> Bool # (>=) :: User -> User -> Bool # max :: User -> User -> User # min :: User -> User -> User #
PersistEntity User Source #
Instance details Defined in Model Associated Types type PersistEntityBackend User # data Key User # data EntityField User :: Type -> Type # data Unique User # Methods keyToValues :: Key User -> [PersistValue] # keyFromValues :: [PersistValue] -> Either Text (Key User) # persistIdField :: EntityField User (Key User) # entityDef :: proxy User -> EntityDef # persistFieldDef :: EntityField User typ -> FieldDef # toPersistFields :: User -> [SomePersistField] # fromPersistValues :: [PersistValue] -> Either Text User # persistUniqueKeys :: User -> [Unique User] # persistUniqueToFieldNames :: Unique User -> NonEmpty (FieldNameHS, FieldNameDB) # persistUniqueToValues :: Unique User -> [PersistValue] # fieldLens :: EntityField User field -> forall (f :: Type -> Type). Functor f => (field -> f field) -> Entity User -> f (Entity User) # keyFromRecordM :: Maybe (User -> Key User) #
PersistField User Source #
Instance details Defined in Model Methods toPersistValue :: User -> PersistValue # fromPersistValue :: PersistValue -> Either Text User #
AtLeastOneUniqueKey User Source #
Instance details Defined in Model Methods requireUniquesP :: User -> NonEmpty (Unique User) #
OnlyOneUniqueKey User Source #
Instance details Defined in Model Methods onlyUniqueP :: User -> Unique User #
PersistFieldSql User Source #
Instance details Defined in Model Methods sqlType :: Proxy User -> SqlType #
SymbolToField "archiveDefault" User Bool Source #
Instance details Defined in Model Methods symbolToField :: EntityField User Bool #
SymbolToField "name" User Text Source #
Instance details Defined in Model Methods symbolToField :: EntityField User Text #
SymbolToField "passwordHash" User BCrypt Source #
Instance details Defined in Model Methods symbolToField :: EntityField User BCrypt #
SymbolToField "privacyLock" User Bool Source #
Instance details Defined in Model Methods symbolToField :: EntityField User Bool #
SymbolToField "privateDefault" User Bool Source #
Instance details Defined in Model Methods symbolToField :: EntityField User Bool #
SymbolToField "userId" Bookmark UserId Source #
Instance details Defined in Model Methods symbolToField :: EntityField Bookmark UserId #
SymbolToField "userId" BookmarkTag UserId Source #
Instance details Defined in Model Methods symbolToField :: EntityField BookmarkTag UserId #
SymbolToField "userId" Note UserId Source #
Instance details Defined in Model Methods symbolToField :: EntityField Note UserId #
SymbolToField "apiToken" User (Maybe HashedApiKey) Source #
Instance details Defined in Model Methods symbolToField :: EntityField User (Maybe HashedApiKey) #
SymbolToField "id" User (Key User) Source #
Instance details Defined in Model Methods symbolToField :: EntityField User (Key User) #
FromJSON (Entity User) Source #
Instance details Defined in Model Methods parseJSON :: Value -> Parser (Entity User) # parseJSONList :: Value -> Parser [Entity User] #
FromJSON (Key User) Source #
Instance details Defined in Model Methods parseJSON :: Value -> Parser (Key User) # parseJSONList :: Value -> Parser [Key User] #
ToJSON (Entity User) Source #
Instance details Defined in Model Methods toJSON :: Entity User -> Value # toEncoding :: Entity User -> Encoding # toJSONList :: [Entity User] -> Value # toEncodingList :: [Entity User] -> Encoding #
ToJSON (Key User) Source #
Instance details Defined in Model Methods toJSON :: Key User -> Value # toEncoding :: Key User -> Encoding # toJSONList :: [Key User] -> Value # toEncodingList :: [Key User] -> Encoding #
Read (Key User) Source #
Instance details Defined in Model Methods readsPrec :: Int -> ReadS (Key User) # readList :: ReadS [Key User] # readPrec :: ReadPrec (Key User) # readListPrec :: ReadPrec [Key User] #
Show (Key User) Source #
Instance details Defined in Model Methods showsPrec :: Int -> Key User -> ShowS # show :: Key User -> String # showList :: [Key User] -> ShowS #
Eq (Key User) Source #
Instance details Defined in Model Methods (==) :: Key User -> Key User -> Bool # (/=) :: Key User -> Key User -> Bool #
Ord (Key User) Source #
Instance details Defined in Model Methods compare :: Key User -> Key User -> Ordering # (<) :: Key User -> Key User -> Bool # (<=) :: Key User -> Key User -> Bool # (>) :: Key User -> Key User -> Bool # (>=) :: Key User -> Key User -> Bool # max :: Key User -> Key User -> Key User # min :: Key User -> Key User -> Key User #
FromHttpApiData (Key User) Source #
Instance details Defined in Model Methods parseUrlPiece :: Text -> Either Text (Key User) # parseHeader :: ByteString -> Either Text (Key User) # parseQueryParam :: Text -> Either Text (Key User) #
ToHttpApiData (Key User) Source #
Instance details Defined in Model Methods toUrlPiece :: Key User -> Text # toEncodedUrlPiece :: Key User -> Builder # toHeader :: Key User -> ByteString # toQueryParam :: Key User -> Text #
PathPiece (Key User) Source #
Instance details Defined in Model Methods fromPathPiece :: Text -> Maybe (Key User) # toPathPiece :: Key User -> Text #
PersistField (Key User) Source #
Instance details Defined in Model Methods toPersistValue :: Key User -> PersistValue # fromPersistValue :: PersistValue -> Either Text (Key User) #
PersistFieldSql (Key User) Source #
Instance details Defined in Model Methods sqlType :: Proxy (Key User) -> SqlType #
data EntityField User typ Source #
Instance details Defined in Model data EntityField User typ = typ ~ UserId => UserId \| typ ~ Text => UserName \| typ ~ BCrypt => UserPasswordHash \| typ ~ Maybe HashedApiKey => UserApiToken \| typ ~ Bool => UserPrivateDefault \| typ ~ Bool => UserArchiveDefault \| typ ~ Bool => UserPrivacyLock
newtype Key User Source #
Instance details Defined in Model newtype Key User = UserKey { unUserKey :: Int64 }
type PersistEntityBackend User Source #
Instance details Defined in Model type PersistEntityBackend User = SqlBackend
data Unique User Source #
Instance details Defined in Model data Unique User = UniqueUserName Text

type UserId = Key User Source #

data Bookmark Source #

Constructors

Bookmark
Fields bookmarkUserId :: !UserId bookmarkSlug :: !BmSlug bookmarkHref :: !Text bookmarkDescription :: !Text bookmarkExtended :: !Text bookmarkTime :: !UTCTime bookmarkShared :: !Bool bookmarkToRead :: !Bool bookmarkSelected :: !Bool bookmarkArchiveHref :: !(Maybe Text)

Instances

Instances details

FromJSON Bookmark Source #
Instance details Defined in Model Methods parseJSON :: Value -> Parser Bookmark # parseJSONList :: Value -> Parser [Bookmark] #
ToJSON Bookmark Source #
Instance details Defined in Model Methods toJSON :: Bookmark -> Value # toEncoding :: Bookmark -> Encoding # toJSONList :: [Bookmark] -> Value # toEncodingList :: [Bookmark] -> Encoding #
Show Bookmark Source #
Instance details Defined in Model Methods showsPrec :: Int -> Bookmark -> ShowS # show :: Bookmark -> String # showList :: [Bookmark] -> ShowS #
Eq Bookmark Source #
Instance details Defined in Model Methods (==) :: Bookmark -> Bookmark -> Bool # (/=) :: Bookmark -> Bookmark -> Bool #
Ord Bookmark Source #
Instance details Defined in Model Methods compare :: Bookmark -> Bookmark -> Ordering # (<) :: Bookmark -> Bookmark -> Bool # (<=) :: Bookmark -> Bookmark -> Bool # (>) :: Bookmark -> Bookmark -> Bool # (>=) :: Bookmark -> Bookmark -> Bool # max :: Bookmark -> Bookmark -> Bookmark # min :: Bookmark -> Bookmark -> Bookmark #
PersistEntity Bookmark Source #
Instance details Defined in Model Associated Types type PersistEntityBackend Bookmark # data Key Bookmark # data EntityField Bookmark :: Type -> Type # data Unique Bookmark # Methods keyToValues :: Key Bookmark -> [PersistValue] # keyFromValues :: [PersistValue] -> Either Text (Key Bookmark) # persistIdField :: EntityField Bookmark (Key Bookmark) # entityDef :: proxy Bookmark -> EntityDef # persistFieldDef :: EntityField Bookmark typ -> FieldDef # toPersistFields :: Bookmark -> [SomePersistField] # fromPersistValues :: [PersistValue] -> Either Text Bookmark # persistUniqueKeys :: Bookmark -> [Unique Bookmark] # persistUniqueToFieldNames :: Unique Bookmark -> NonEmpty (FieldNameHS, FieldNameDB) # persistUniqueToValues :: Unique Bookmark -> [PersistValue] # fieldLens :: EntityField Bookmark field -> forall (f :: Type -> Type). Functor f => (field -> f field) -> Entity Bookmark -> f (Entity Bookmark) # keyFromRecordM :: Maybe (Bookmark -> Key Bookmark) #
PersistField Bookmark Source #
Instance details Defined in Model Methods toPersistValue :: Bookmark -> PersistValue # fromPersistValue :: PersistValue -> Either Text Bookmark #
AtLeastOneUniqueKey Bookmark Source #
Instance details Defined in Model Methods requireUniquesP :: Bookmark -> NonEmpty (Unique Bookmark) #
(TypeError (MultipleUniqueKeysError Bookmark) :: Constraint) => OnlyOneUniqueKey Bookmark Source #
Instance details Defined in Model Methods onlyUniqueP :: Bookmark -> Unique Bookmark #
PersistFieldSql Bookmark Source #
Instance details Defined in Model Methods sqlType :: Proxy Bookmark -> SqlType #
SymbolToField "bookmarkId" BookmarkTag BookmarkId Source #
Instance details Defined in Model Methods symbolToField :: EntityField BookmarkTag BookmarkId #
SymbolToField "description" Bookmark Text Source #
Instance details Defined in Model Methods symbolToField :: EntityField Bookmark Text #
SymbolToField "extended" Bookmark Text Source #
Instance details Defined in Model Methods symbolToField :: EntityField Bookmark Text #
SymbolToField "href" Bookmark Text Source #
Instance details Defined in Model Methods symbolToField :: EntityField Bookmark Text #
SymbolToField "selected" Bookmark Bool Source #
Instance details Defined in Model Methods symbolToField :: EntityField Bookmark Bool #
SymbolToField "shared" Bookmark Bool Source #
Instance details Defined in Model Methods symbolToField :: EntityField Bookmark Bool #
SymbolToField "slug" Bookmark BmSlug Source #
Instance details Defined in Model Methods symbolToField :: EntityField Bookmark BmSlug #
SymbolToField "time" Bookmark UTCTime Source #
Instance details Defined in Model Methods symbolToField :: EntityField Bookmark UTCTime #
SymbolToField "toRead" Bookmark Bool Source #
Instance details Defined in Model Methods symbolToField :: EntityField Bookmark Bool #
SymbolToField "userId" Bookmark UserId Source #
Instance details Defined in Model Methods symbolToField :: EntityField Bookmark UserId #
SymbolToField "archiveHref" Bookmark (Maybe Text) Source #
Instance details Defined in Model Methods symbolToField :: EntityField Bookmark (Maybe Text) #
SymbolToField "id" Bookmark (Key Bookmark) Source #
Instance details Defined in Model Methods symbolToField :: EntityField Bookmark (Key Bookmark) #
FromJSON (Entity Bookmark) Source #
Instance details Defined in Model Methods parseJSON :: Value -> Parser (Entity Bookmark) # parseJSONList :: Value -> Parser [Entity Bookmark] #
FromJSON (Key Bookmark) Source #
Instance details Defined in Model Methods parseJSON :: Value -> Parser (Key Bookmark) # parseJSONList :: Value -> Parser [Key Bookmark] #
ToJSON (Entity Bookmark) Source #
Instance details Defined in Model Methods toJSON :: Entity Bookmark -> Value # toEncoding :: Entity Bookmark -> Encoding # toJSONList :: [Entity Bookmark] -> Value # toEncodingList :: [Entity Bookmark] -> Encoding #
ToJSON (Key Bookmark) Source #
Instance details Defined in Model Methods toJSON :: Key Bookmark -> Value # toEncoding :: Key Bookmark -> Encoding # toJSONList :: [Key Bookmark] -> Value # toEncodingList :: [Key Bookmark] -> Encoding #
Read (Key Bookmark) Source #
Instance details Defined in Model Methods readsPrec :: Int -> ReadS (Key Bookmark) # readList :: ReadS [Key Bookmark] # readPrec :: ReadPrec (Key Bookmark) # readListPrec :: ReadPrec [Key Bookmark] #
Show (Key Bookmark) Source #
Instance details Defined in Model Methods showsPrec :: Int -> Key Bookmark -> ShowS # show :: Key Bookmark -> String # showList :: [Key Bookmark] -> ShowS #
Eq (Key Bookmark) Source #
Instance details Defined in Model Methods (==) :: Key Bookmark -> Key Bookmark -> Bool # (/=) :: Key Bookmark -> Key Bookmark -> Bool #
Ord (Key Bookmark) Source #
Instance details Defined in Model Methods compare :: Key Bookmark -> Key Bookmark -> Ordering # (<) :: Key Bookmark -> Key Bookmark -> Bool # (<=) :: Key Bookmark -> Key Bookmark -> Bool # (>) :: Key Bookmark -> Key Bookmark -> Bool # (>=) :: Key Bookmark -> Key Bookmark -> Bool # max :: Key Bookmark -> Key Bookmark -> Key Bookmark # min :: Key Bookmark -> Key Bookmark -> Key Bookmark #
FromHttpApiData (Key Bookmark) Source #
Instance details Defined in Model Methods parseUrlPiece :: Text -> Either Text (Key Bookmark) # parseHeader :: ByteString -> Either Text (Key Bookmark) # parseQueryParam :: Text -> Either Text (Key Bookmark) #
ToHttpApiData (Key Bookmark) Source #
Instance details Defined in Model Methods toUrlPiece :: Key Bookmark -> Text # toEncodedUrlPiece :: Key Bookmark -> Builder # toHeader :: Key Bookmark -> ByteString # toQueryParam :: Key Bookmark -> Text #
PathPiece (Key Bookmark) Source #
Instance details Defined in Model Methods fromPathPiece :: Text -> Maybe (Key Bookmark) # toPathPiece :: Key Bookmark -> Text #
PersistField (Key Bookmark) Source #
Instance details Defined in Model Methods toPersistValue :: Key Bookmark -> PersistValue # fromPersistValue :: PersistValue -> Either Text (Key Bookmark) #
PersistFieldSql (Key Bookmark) Source #
Instance details Defined in Model Methods sqlType :: Proxy (Key Bookmark) -> SqlType #
data EntityField Bookmark typ Source #
Instance details Defined in Model data EntityField Bookmark typ = typ ~ BookmarkId => BookmarkId \| typ ~ UserId => BookmarkUserId \| typ ~ BmSlug => BookmarkSlug \| typ ~ Text => BookmarkHref \| typ ~ Text => BookmarkDescription \| typ ~ Text => BookmarkExtended \| typ ~ UTCTime => BookmarkTime \| typ ~ Bool => BookmarkShared \| typ ~ Bool => BookmarkToRead \| typ ~ Bool => BookmarkSelected \| typ ~ Maybe Text => BookmarkArchiveHref
newtype Key Bookmark Source #
Instance details Defined in Model newtype Key Bookmark = BookmarkKey { unBookmarkKey :: Int64 }
type PersistEntityBackend Bookmark Source #
Instance details Defined in Model type PersistEntityBackend Bookmark = SqlBackend
data Unique Bookmark Source #
Instance details Defined in Model data Unique Bookmark = UniqueUserHref UserId Text \| UniqueUserSlug UserId BmSlug

type BookmarkId = Key Bookmark Source #

data BookmarkTag Source #

Constructors

BookmarkTag
Fields bookmarkTagUserId :: !UserId bookmarkTagTag :: !Text bookmarkTagBookmarkId :: !BookmarkId bookmarkTagSeq :: !Int

Instances

Instances details

FromJSON BookmarkTag Source #
Instance details Defined in Model Methods parseJSON :: Value -> Parser BookmarkTag # parseJSONList :: Value -> Parser [BookmarkTag] #
ToJSON BookmarkTag Source #
Instance details Defined in Model Methods toJSON :: BookmarkTag -> Value # toEncoding :: BookmarkTag -> Encoding # toJSONList :: [BookmarkTag] -> Value # toEncodingList :: [BookmarkTag] -> Encoding #
Show BookmarkTag Source #
Instance details Defined in Model Methods showsPrec :: Int -> BookmarkTag -> ShowS # show :: BookmarkTag -> String # showList :: [BookmarkTag] -> ShowS #
Eq BookmarkTag Source #
Instance details Defined in Model Methods (==) :: BookmarkTag -> BookmarkTag -> Bool # (/=) :: BookmarkTag -> BookmarkTag -> Bool #
Ord BookmarkTag Source #
Instance details Defined in Model Methods compare :: BookmarkTag -> BookmarkTag -> Ordering # (<) :: BookmarkTag -> BookmarkTag -> Bool # (<=) :: BookmarkTag -> BookmarkTag -> Bool # (>) :: BookmarkTag -> BookmarkTag -> Bool # (>=) :: BookmarkTag -> BookmarkTag -> Bool # max :: BookmarkTag -> BookmarkTag -> BookmarkTag # min :: BookmarkTag -> BookmarkTag -> BookmarkTag #
PersistEntity BookmarkTag Source #
Instance details Defined in Model Associated Types type PersistEntityBackend BookmarkTag # data Key BookmarkTag # data EntityField BookmarkTag :: Type -> Type # data Unique BookmarkTag # Methods keyToValues :: Key BookmarkTag -> [PersistValue] # keyFromValues :: [PersistValue] -> Either Text (Key BookmarkTag) # persistIdField :: EntityField BookmarkTag (Key BookmarkTag) # entityDef :: proxy BookmarkTag -> EntityDef # persistFieldDef :: EntityField BookmarkTag typ -> FieldDef # toPersistFields :: BookmarkTag -> [SomePersistField] # fromPersistValues :: [PersistValue] -> Either Text BookmarkTag # persistUniqueKeys :: BookmarkTag -> [Unique BookmarkTag] # persistUniqueToFieldNames :: Unique BookmarkTag -> NonEmpty (FieldNameHS, FieldNameDB) # persistUniqueToValues :: Unique BookmarkTag -> [PersistValue] # fieldLens :: EntityField BookmarkTag field -> forall (f :: Type -> Type). Functor f => (field -> f field) -> Entity BookmarkTag -> f (Entity BookmarkTag) # keyFromRecordM :: Maybe (BookmarkTag -> Key BookmarkTag) #
PersistField BookmarkTag Source #
Instance details Defined in Model Methods toPersistValue :: BookmarkTag -> PersistValue # fromPersistValue :: PersistValue -> Either Text BookmarkTag #
AtLeastOneUniqueKey BookmarkTag Source #
Instance details Defined in Model Methods requireUniquesP :: BookmarkTag -> NonEmpty (Unique BookmarkTag) #
(TypeError (MultipleUniqueKeysError BookmarkTag) :: Constraint) => OnlyOneUniqueKey BookmarkTag Source #
Instance details Defined in Model Methods onlyUniqueP :: BookmarkTag -> Unique BookmarkTag #
PersistFieldSql BookmarkTag Source #
Instance details Defined in Model Methods sqlType :: Proxy BookmarkTag -> SqlType #
SymbolToField "bookmarkId" BookmarkTag BookmarkId Source #
Instance details Defined in Model Methods symbolToField :: EntityField BookmarkTag BookmarkId #
SymbolToField "seq" BookmarkTag Int Source #
Instance details Defined in Model Methods symbolToField :: EntityField BookmarkTag Int #
SymbolToField "tag" BookmarkTag Text Source #
Instance details Defined in Model Methods symbolToField :: EntityField BookmarkTag Text #
SymbolToField "userId" BookmarkTag UserId Source #
Instance details Defined in Model Methods symbolToField :: EntityField BookmarkTag UserId #
SymbolToField "id" BookmarkTag (Key BookmarkTag) Source #
Instance details Defined in Model Methods symbolToField :: EntityField BookmarkTag (Key BookmarkTag) #
FromJSON (Entity BookmarkTag) Source #
Instance details Defined in Model Methods parseJSON :: Value -> Parser (Entity BookmarkTag) # parseJSONList :: Value -> Parser [Entity BookmarkTag] #
FromJSON (Key BookmarkTag) Source #
Instance details Defined in Model Methods parseJSON :: Value -> Parser (Key BookmarkTag) # parseJSONList :: Value -> Parser [Key BookmarkTag] #
ToJSON (Entity BookmarkTag) Source #
Instance details Defined in Model Methods toJSON :: Entity BookmarkTag -> Value # toEncoding :: Entity BookmarkTag -> Encoding # toJSONList :: [Entity BookmarkTag] -> Value # toEncodingList :: [Entity BookmarkTag] -> Encoding #
ToJSON (Key BookmarkTag) Source #
Instance details Defined in Model Methods toJSON :: Key BookmarkTag -> Value # toEncoding :: Key BookmarkTag -> Encoding # toJSONList :: [Key BookmarkTag] -> Value # toEncodingList :: [Key BookmarkTag] -> Encoding #
Read (Key BookmarkTag) Source #
Instance details Defined in Model Methods readsPrec :: Int -> ReadS (Key BookmarkTag) # readList :: ReadS [Key BookmarkTag] # readPrec :: ReadPrec (Key BookmarkTag) # readListPrec :: ReadPrec [Key BookmarkTag] #
Show (Key BookmarkTag) Source #
Instance details Defined in Model Methods showsPrec :: Int -> Key BookmarkTag -> ShowS # show :: Key BookmarkTag -> String # showList :: [Key BookmarkTag] -> ShowS #
Eq (Key BookmarkTag) Source #
Instance details Defined in Model Methods (==) :: Key BookmarkTag -> Key BookmarkTag -> Bool # (/=) :: Key BookmarkTag -> Key BookmarkTag -> Bool #
Ord (Key BookmarkTag) Source #
Instance details Defined in Model Methods compare :: Key BookmarkTag -> Key BookmarkTag -> Ordering # (<) :: Key BookmarkTag -> Key BookmarkTag -> Bool # (<=) :: Key BookmarkTag -> Key BookmarkTag -> Bool # (>) :: Key BookmarkTag -> Key BookmarkTag -> Bool # (>=) :: Key BookmarkTag -> Key BookmarkTag -> Bool # max :: Key BookmarkTag -> Key BookmarkTag -> Key BookmarkTag # min :: Key BookmarkTag -> Key BookmarkTag -> Key BookmarkTag #
FromHttpApiData (Key BookmarkTag) Source #
Instance details Defined in Model Methods parseUrlPiece :: Text -> Either Text (Key BookmarkTag) # parseHeader :: ByteString -> Either Text (Key BookmarkTag) # parseQueryParam :: Text -> Either Text (Key BookmarkTag) #
ToHttpApiData (Key BookmarkTag) Source #
Instance details Defined in Model Methods toUrlPiece :: Key BookmarkTag -> Text # toEncodedUrlPiece :: Key BookmarkTag -> Builder # toHeader :: Key BookmarkTag -> ByteString # toQueryParam :: Key BookmarkTag -> Text #
PathPiece (Key BookmarkTag) Source #
Instance details Defined in Model Methods fromPathPiece :: Text -> Maybe (Key BookmarkTag) # toPathPiece :: Key BookmarkTag -> Text #
PersistField (Key BookmarkTag) Source #
Instance details Defined in Model Methods toPersistValue :: Key BookmarkTag -> PersistValue # fromPersistValue :: PersistValue -> Either Text (Key BookmarkTag) #
PersistFieldSql (Key BookmarkTag) Source #
Instance details Defined in Model Methods sqlType :: Proxy (Key BookmarkTag) -> SqlType #
data EntityField BookmarkTag typ Source #
Instance details Defined in Model data EntityField BookmarkTag typ = typ ~ BookmarkTagId => BookmarkTagId \| typ ~ UserId => BookmarkTagUserId \| typ ~ Text => BookmarkTagTag \| typ ~ BookmarkId => BookmarkTagBookmarkId \| typ ~ Int => BookmarkTagSeq
newtype Key BookmarkTag Source #
Instance details Defined in Model newtype Key BookmarkTag = BookmarkTagKey { unBookmarkTagKey :: Int64 }
type PersistEntityBackend BookmarkTag Source #
Instance details Defined in Model type PersistEntityBackend BookmarkTag = SqlBackend
data Unique BookmarkTag Source #
Instance details Defined in Model data Unique BookmarkTag = UniqueUserTagBookmarkId UserId Text BookmarkId \| UniqueUserBookmarkIdTagSeq UserId BookmarkId Text Int

type BookmarkTagId = Key BookmarkTag Source #

data Note Source #

Constructors

Note
Fields noteUserId :: !UserId noteSlug :: !NtSlug noteLength :: !Int noteTitle :: !Text noteText :: !Text noteIsMarkdown :: !Bool noteShared :: !Bool noteCreated :: !UTCTime noteUpdated :: !UTCTime

Instances

Instances details

FromJSON Note Source #
Instance details Defined in Model Methods parseJSON :: Value -> Parser Note # parseJSONList :: Value -> Parser [Note] #
ToJSON Note Source #
Instance details Defined in Model Methods toJSON :: Note -> Value # toEncoding :: Note -> Encoding # toJSONList :: [Note] -> Value # toEncodingList :: [Note] -> Encoding #
Show Note Source #
Instance details Defined in Model Methods showsPrec :: Int -> Note -> ShowS # show :: Note -> String # showList :: [Note] -> ShowS #
Eq Note Source #
Instance details Defined in Model Methods (==) :: Note -> Note -> Bool # (/=) :: Note -> Note -> Bool #
Ord Note Source #
Instance details Defined in Model Methods compare :: Note -> Note -> Ordering # (<) :: Note -> Note -> Bool # (<=) :: Note -> Note -> Bool # (>) :: Note -> Note -> Bool # (>=) :: Note -> Note -> Bool # max :: Note -> Note -> Note # min :: Note -> Note -> Note #
PersistEntity Note Source #
Instance details Defined in Model Associated Types type PersistEntityBackend Note # data Key Note # data EntityField Note :: Type -> Type # data Unique Note # Methods keyToValues :: Key Note -> [PersistValue] # keyFromValues :: [PersistValue] -> Either Text (Key Note) # persistIdField :: EntityField Note (Key Note) # entityDef :: proxy Note -> EntityDef # persistFieldDef :: EntityField Note typ -> FieldDef # toPersistFields :: Note -> [SomePersistField] # fromPersistValues :: [PersistValue] -> Either Text Note # persistUniqueKeys :: Note -> [Unique Note] # persistUniqueToFieldNames :: Unique Note -> NonEmpty (FieldNameHS, FieldNameDB) # persistUniqueToValues :: Unique Note -> [PersistValue] # fieldLens :: EntityField Note field -> forall (f :: Type -> Type). Functor f => (field -> f field) -> Entity Note -> f (Entity Note) # keyFromRecordM :: Maybe (Note -> Key Note) #
PersistField Note Source #
Instance details Defined in Model Methods toPersistValue :: Note -> PersistValue # fromPersistValue :: PersistValue -> Either Text Note #
(TypeError (MultipleUniqueKeysError Note) :: Constraint) => AtLeastOneUniqueKey Note Source #
Instance details Defined in Model Methods requireUniquesP :: Note -> NonEmpty (Unique Note) #
(TypeError (NoUniqueKeysError Note) :: Constraint) => OnlyOneUniqueKey Note Source #
Instance details Defined in Model Methods onlyUniqueP :: Note -> Unique Note #
PersistFieldSql Note Source #
Instance details Defined in Model Methods sqlType :: Proxy Note -> SqlType #
SymbolToField "created" Note UTCTime Source #
Instance details Defined in Model Methods symbolToField :: EntityField Note UTCTime #
SymbolToField "isMarkdown" Note Bool Source #
Instance details Defined in Model Methods symbolToField :: EntityField Note Bool #
SymbolToField "length" Note Int Source #
Instance details Defined in Model Methods symbolToField :: EntityField Note Int #
SymbolToField "shared" Note Bool Source #
Instance details Defined in Model Methods symbolToField :: EntityField Note Bool #
SymbolToField "slug" Note NtSlug Source #
Instance details Defined in Model Methods symbolToField :: EntityField Note NtSlug #
SymbolToField "text" Note Text Source #
Instance details Defined in Model Methods symbolToField :: EntityField Note Text #
SymbolToField "title" Note Text Source #
Instance details Defined in Model Methods symbolToField :: EntityField Note Text #
SymbolToField "updated" Note UTCTime Source #
Instance details Defined in Model Methods symbolToField :: EntityField Note UTCTime #
SymbolToField "userId" Note UserId Source #
Instance details Defined in Model Methods symbolToField :: EntityField Note UserId #
SymbolToField "id" Note (Key Note) Source #
Instance details Defined in Model Methods symbolToField :: EntityField Note (Key Note) #
FromJSON (Entity Note) Source #
Instance details Defined in Model Methods parseJSON :: Value -> Parser (Entity Note) # parseJSONList :: Value -> Parser [Entity Note] #
FromJSON (Key Note) Source #
Instance details Defined in Model Methods parseJSON :: Value -> Parser (Key Note) # parseJSONList :: Value -> Parser [Key Note] #
ToJSON (Entity Note) Source #
Instance details Defined in Model Methods toJSON :: Entity Note -> Value # toEncoding :: Entity Note -> Encoding # toJSONList :: [Entity Note] -> Value # toEncodingList :: [Entity Note] -> Encoding #
ToJSON (Key Note) Source #
Instance details Defined in Model Methods toJSON :: Key Note -> Value # toEncoding :: Key Note -> Encoding # toJSONList :: [Key Note] -> Value # toEncodingList :: [Key Note] -> Encoding #
Read (Key Note) Source #
Instance details Defined in Model Methods readsPrec :: Int -> ReadS (Key Note) # readList :: ReadS [Key Note] # readPrec :: ReadPrec (Key Note) # readListPrec :: ReadPrec [Key Note] #
Show (Key Note) Source #
Instance details Defined in Model Methods showsPrec :: Int -> Key Note -> ShowS # show :: Key Note -> String # showList :: [Key Note] -> ShowS #
Eq (Key Note) Source #
Instance details Defined in Model Methods (==) :: Key Note -> Key Note -> Bool # (/=) :: Key Note -> Key Note -> Bool #
Ord (Key Note) Source #
Instance details Defined in Model Methods compare :: Key Note -> Key Note -> Ordering # (<) :: Key Note -> Key Note -> Bool # (<=) :: Key Note -> Key Note -> Bool # (>) :: Key Note -> Key Note -> Bool # (>=) :: Key Note -> Key Note -> Bool # max :: Key Note -> Key Note -> Key Note # min :: Key Note -> Key Note -> Key Note #
FromHttpApiData (Key Note) Source #
Instance details Defined in Model Methods parseUrlPiece :: Text -> Either Text (Key Note) # parseHeader :: ByteString -> Either Text (Key Note) # parseQueryParam :: Text -> Either Text (Key Note) #
ToHttpApiData (Key Note) Source #
Instance details Defined in Model Methods toUrlPiece :: Key Note -> Text # toEncodedUrlPiece :: Key Note -> Builder # toHeader :: Key Note -> ByteString # toQueryParam :: Key Note -> Text #
PathPiece (Key Note) Source #
Instance details Defined in Model Methods fromPathPiece :: Text -> Maybe (Key Note) # toPathPiece :: Key Note -> Text #
PersistField (Key Note) Source #
Instance details Defined in Model Methods toPersistValue :: Key Note -> PersistValue # fromPersistValue :: PersistValue -> Either Text (Key Note) #
PersistFieldSql (Key Note) Source #
Instance details Defined in Model Methods sqlType :: Proxy (Key Note) -> SqlType #
data EntityField Note typ Source #
Instance details Defined in Model data EntityField Note typ = typ ~ NoteId => NoteId \| typ ~ UserId => NoteUserId \| typ ~ NtSlug => NoteSlug \| typ ~ Int => NoteLength \| typ ~ Text => NoteTitle \| typ ~ Text => NoteText \| typ ~ Bool => NoteIsMarkdown \| typ ~ Bool => NoteShared \| typ ~ UTCTime => NoteCreated \| typ ~ UTCTime => NoteUpdated
newtype Key Note Source #
Instance details Defined in Model newtype Key Note = NoteKey { unNoteKey :: Int64 }
type PersistEntityBackend Note Source #
Instance details Defined in Model type PersistEntityBackend Note = SqlBackend
data Unique Note Source #
Instance details Defined in Model data Unique Note

type NoteId = Key Note Source #

migrateSchema :: Migration Source #

entityDefListFormigrateSchema :: [EntityDef] Source #

newtype UTCTimeStr Source #

Constructors

UTCTimeStr
Fields unUTCTimeStr :: UTCTime

Instances

Instances details

FromJSON UTCTimeStr Source #
Instance details Defined in Model Methods parseJSON :: Value -> Parser UTCTimeStr # parseJSONList :: Value -> Parser [UTCTimeStr] #
ToJSON UTCTimeStr Source #
Instance details Defined in Model Methods toJSON :: UTCTimeStr -> Value # toEncoding :: UTCTimeStr -> Encoding # toJSONList :: [UTCTimeStr] -> Value # toEncodingList :: [UTCTimeStr] -> Encoding #
Generic UTCTimeStr Source #
Instance details Defined in Model Associated Types type Rep UTCTimeStr :: Type -> Type # Methods from :: UTCTimeStr -> Rep UTCTimeStr x # to :: Rep UTCTimeStr x -> UTCTimeStr #
Read UTCTimeStr Source #
Instance details Defined in Model Methods readsPrec :: Int -> ReadS UTCTimeStr # readList :: ReadS [UTCTimeStr] # readPrec :: ReadPrec UTCTimeStr # readListPrec :: ReadPrec [UTCTimeStr] #
Show UTCTimeStr Source #
Instance details Defined in Model Methods showsPrec :: Int -> UTCTimeStr -> ShowS # show :: UTCTimeStr -> String # showList :: [UTCTimeStr] -> ShowS #
Eq UTCTimeStr Source #
Instance details Defined in Model Methods (==) :: UTCTimeStr -> UTCTimeStr -> Bool # (/=) :: UTCTimeStr -> UTCTimeStr -> Bool #
PathPiece UTCTimeStr Source #
Instance details Defined in Model Methods fromPathPiece :: Text -> Maybe UTCTimeStr # toPathPiece :: UTCTimeStr -> Text #
type Rep UTCTimeStr Source #
Instance details Defined in Model type Rep UTCTimeStr = D1 ('MetaData "UTCTimeStr" "Model" "espial-0.0.16-9EWnUeGfZXE222WrGUgYOv" 'True) (C1 ('MetaCons "UTCTimeStr" 'PrefixI 'True) (S1 ('MetaSel ('Just "unUTCTimeStr") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 UTCTime)))

newtype UserNameP Source #

Constructors

UserNameP
Fields unUserNameP :: Text

Instances

Instances details

Read UserNameP Source #
Instance details Defined in Model Methods readsPrec :: Int -> ReadS UserNameP # readList :: ReadS [UserNameP] # readPrec :: ReadPrec UserNameP # readListPrec :: ReadPrec [UserNameP] #
Show UserNameP Source #
Instance details Defined in Model Methods showsPrec :: Int -> UserNameP -> ShowS # show :: UserNameP -> String # showList :: [UserNameP] -> ShowS #
Eq UserNameP Source #
Instance details Defined in Model Methods (==) :: UserNameP -> UserNameP -> Bool # (/=) :: UserNameP -> UserNameP -> Bool #
PathPiece UserNameP Source #
Instance details Defined in PathPiece Methods fromPathPiece :: Text -> Maybe UserNameP # toPathPiece :: UserNameP -> Text #

newtype TagsP Source #

Constructors

TagsP
Fields unTagsP :: [Text]

Instances

Instances details

Read TagsP Source #
Instance details Defined in Model Methods readsPrec :: Int -> ReadS TagsP # readList :: ReadS [TagsP] # readPrec :: ReadPrec TagsP # readListPrec :: ReadPrec [TagsP] #
Show TagsP Source #
Instance details Defined in Model Methods showsPrec :: Int -> TagsP -> ShowS # show :: TagsP -> String # showList :: [TagsP] -> ShowS #
Eq TagsP Source #
Instance details Defined in Model Methods (==) :: TagsP -> TagsP -> Bool # (/=) :: TagsP -> TagsP -> Bool #
PathPiece TagsP Source #
Instance details Defined in PathPiece Methods fromPathPiece :: Text -> Maybe TagsP # toPathPiece :: TagsP -> Text #

data SharedP Source #

Constructors

SharedAll
SharedPublic
SharedPrivate

Instances

Instances details

Read SharedP Source #
Instance details Defined in Model Methods readsPrec :: Int -> ReadS SharedP # readList :: ReadS [SharedP] # readPrec :: ReadPrec SharedP # readListPrec :: ReadPrec [SharedP] #
Show SharedP Source #
Instance details Defined in Model Methods showsPrec :: Int -> SharedP -> ShowS # show :: SharedP -> String # showList :: [SharedP] -> ShowS #
Eq SharedP Source #
Instance details Defined in Model Methods (==) :: SharedP -> SharedP -> Bool # (/=) :: SharedP -> SharedP -> Bool #
PathPiece SharedP Source #
Instance details Defined in PathPiece Methods fromPathPiece :: Text -> Maybe SharedP # toPathPiece :: SharedP -> Text #

data FilterP Source #

Constructors

FilterAll
FilterUnread
FilterUntagged
FilterStarred
FilterSingle BmSlug

Instances

Instances details

Read FilterP Source #
Instance details Defined in Model Methods readsPrec :: Int -> ReadS FilterP # readList :: ReadS [FilterP] # readPrec :: ReadPrec FilterP # readListPrec :: ReadPrec [FilterP] #
Show FilterP Source #
Instance details Defined in Model Methods showsPrec :: Int -> FilterP -> ShowS # show :: FilterP -> String # showList :: [FilterP] -> ShowS #
Eq FilterP Source #
Instance details Defined in Model Methods (==) :: FilterP -> FilterP -> Bool # (/=) :: FilterP -> FilterP -> Bool #
PathPiece FilterP Source #
Instance details Defined in PathPiece Methods fromPathPiece :: Text -> Maybe FilterP # toPathPiece :: FilterP -> Text #

newtype UnreadOnly Source #

Constructors

UnreadOnly
Fields unUnreadOnly :: Bool

Instances

Instances details

Read UnreadOnly Source #
Instance details Defined in Model Methods readsPrec :: Int -> ReadS UnreadOnly # readList :: ReadS [UnreadOnly] # readPrec :: ReadPrec UnreadOnly # readListPrec :: ReadPrec [UnreadOnly] #
Show UnreadOnly Source #
Instance details Defined in Model Methods showsPrec :: Int -> UnreadOnly -> ShowS # show :: UnreadOnly -> String # showList :: [UnreadOnly] -> ShowS #
Eq UnreadOnly Source #
Instance details Defined in Model Methods (==) :: UnreadOnly -> UnreadOnly -> Bool # (/=) :: UnreadOnly -> UnreadOnly -> Bool #

type Limit = Int64 Source #

type Page = Int64 Source #

migrateAll :: Migration Source #

dumpMigration :: DB () Source #

runMigrations :: DB () Source #

toMigration :: [Text] -> Migration Source #

migrateIndexes :: Migration Source #

sqliteGroupConcat :: PersistField a => SqlExpr (Value a) -> SqlExpr (Value a) -> SqlExpr (Value Text) Source #

authenticatePassword :: Text -> Text -> DB (Maybe (Entity User)) Source #

getUserByName :: UserNameP -> DB (Maybe (Entity User)) Source #

getApiKeyUser :: ApiKey -> DB (Maybe (Entity User)) Source #

bookmarksTagsQuery :: Key User -> SharedP -> FilterP -> [Tag] -> Maybe Text -> Limit -> Page -> DB (Int, [(Entity Bookmark, Maybe Text)]) Source #

allUserBookmarks :: Key User -> DB [(Entity Bookmark, Text)] Source #

parseSearchQuery :: (Text -> SqlExpr (Value Bool)) -> Text -> Maybe (SqlQuery ()) Source #

parseTimeText :: (ParseTime t, MonadFail m, Alternative m) => Text -> m t Source #

withTags :: Key Bookmark -> DB [Entity BookmarkTag] Source #

getNote :: Key User -> NtSlug -> DB (Maybe (Entity Note)) Source #

getNoteList :: Key User -> Maybe Text -> SharedP -> Limit -> Page -> DB (Int, [Entity Note]) Source #

mkBookmarkTags :: Key User -> Key Bookmark -> [Tag] -> [BookmarkTag] Source #

fileBookmarkToBookmark :: UserId -> FileBookmark -> IO Bookmark Source #

bookmarkTofileBookmark :: Bookmark -> Text -> FileBookmark Source #

data FFBookmarkNode Source #

Constructors

FFBookmarkNode

Fields

firefoxBookmarkChildren :: Maybe [FFBookmarkNode]
firefoxBookmarkDateAdded :: !POSIXTime
firefoxBookmarkGuid :: !Text
firefoxBookmarkIconUri :: !(Maybe Text)
firefoxBookmarkId :: !Int
firefoxBookmarkIndex :: !Int
firefoxBookmarkLastModified :: !POSIXTime
firefoxBookmarkRoot :: !(Maybe Text)
firefoxBookmarkTitle :: !Text
firefoxBookmarkType :: !Text
firefoxBookmarkTypeCode :: !Int
firefoxBookmarkUri :: !(Maybe Text)

Instances

Instances details

FromJSON FFBookmarkNode Source #
Instance details Defined in Model Methods parseJSON :: Value -> Parser FFBookmarkNode # parseJSONList :: Value -> Parser [FFBookmarkNode] #
Show FFBookmarkNode Source #
Instance details Defined in Model Methods showsPrec :: Int -> FFBookmarkNode -> ShowS # show :: FFBookmarkNode -> String # showList :: [FFBookmarkNode] -> ShowS #
Eq FFBookmarkNode Source #
Instance details Defined in Model Methods (==) :: FFBookmarkNode -> FFBookmarkNode -> Bool # (/=) :: FFBookmarkNode -> FFBookmarkNode -> Bool #
Ord FFBookmarkNode Source #
Instance details Defined in Model Methods compare :: FFBookmarkNode -> FFBookmarkNode -> Ordering # (<) :: FFBookmarkNode -> FFBookmarkNode -> Bool # (<=) :: FFBookmarkNode -> FFBookmarkNode -> Bool # (>) :: FFBookmarkNode -> FFBookmarkNode -> Bool # (>=) :: FFBookmarkNode -> FFBookmarkNode -> Bool # max :: FFBookmarkNode -> FFBookmarkNode -> FFBookmarkNode # min :: FFBookmarkNode -> FFBookmarkNode -> FFBookmarkNode #

firefoxBookmarkNodeToBookmark :: UserId -> FFBookmarkNode -> IO [Bookmark] Source #

insertFileBookmarks :: Key User -> FilePath -> DB (Either String Int) Source #

insertFFBookmarks :: Key User -> FilePath -> DB (Either String Int) Source #

readFileBookmarks :: MonadIO m => FilePath -> m (Either String [FileBookmark]) Source #

readFFBookmarks :: MonadIO m => FilePath -> m (Either String FFBookmarkNode) Source #

exportFileBookmarks :: Key User -> FilePath -> DB () Source #

getFileBookmarks :: Key User -> DB [FileBookmark] Source #

data TagCloudMode Source #

Constructors

TagCloudModeTop Bool Int
TagCloudModeLowerBound Bool Int
TagCloudModeRelated Bool [Tag]
TagCloudModeNone

Instances

Instances details

FromJSON TagCloudMode Source #
Instance details Defined in Model Methods parseJSON :: Value -> Parser TagCloudMode # parseJSONList :: Value -> Parser [TagCloudMode] #
ToJSON TagCloudMode Source #
Instance details Defined in Model Methods toJSON :: TagCloudMode -> Value # toEncoding :: TagCloudMode -> Encoding # toJSONList :: [TagCloudMode] -> Value # toEncodingList :: [TagCloudMode] -> Encoding #
Generic TagCloudMode Source #
Instance details Defined in Model Associated Types type Rep TagCloudMode :: Type -> Type # Methods from :: TagCloudMode -> Rep TagCloudMode x # to :: Rep TagCloudMode x -> TagCloudMode #
Read TagCloudMode Source #
Instance details Defined in Model Methods readsPrec :: Int -> ReadS TagCloudMode # readList :: ReadS [TagCloudMode] # readPrec :: ReadPrec TagCloudMode # readListPrec :: ReadPrec [TagCloudMode] #
Show TagCloudMode Source #
Instance details Defined in Model Methods showsPrec :: Int -> TagCloudMode -> ShowS # show :: TagCloudMode -> String # showList :: [TagCloudMode] -> ShowS #
Eq TagCloudMode Source #
Instance details Defined in Model Methods (==) :: TagCloudMode -> TagCloudMode -> Bool # (/=) :: TagCloudMode -> TagCloudMode -> Bool #
type Rep TagCloudMode Source #
Instance details Defined in Model type Rep TagCloudMode = D1 ('MetaData "TagCloudMode" "Model" "espial-0.0.16-9EWnUeGfZXE222WrGUgYOv" 'False) ((C1 ('MetaCons "TagCloudModeTop" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool) :: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int)) :+: C1 ('MetaCons "TagCloudModeLowerBound" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool) :: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int))) :+: (C1 ('MetaCons "TagCloudModeRelated" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [Tag])) :+: C1 ('MetaCons "TagCloudModeNone" 'PrefixI 'False) (U1 :: Type -> Type)))

isExpanded :: TagCloudMode -> Bool Source #

type Tag = Text Source #

tagCountTop :: Key User -> Int -> DB [(Text, Int)] Source #

tagCountLowerBound :: Key User -> Int -> DB [(Text, Int)] Source #

tagCountRelated :: Key User -> [Tag] -> DB [(Text, Int)] Source #

fileNoteToNote :: UserId -> FileNote -> IO Note Source #

insertDirFileNotes :: Key User -> FilePath -> DB (Either String Int) Source #

data AccountSettingsForm Source #

Constructors

AccountSettingsForm
Fields _privateDefault :: Bool _archiveDefault :: Bool _privacyLock :: Bool

Instances

Instances details

FromJSON AccountSettingsForm Source #
Instance details Defined in Model Methods parseJSON :: Value -> Parser AccountSettingsForm # parseJSONList :: Value -> Parser [AccountSettingsForm] #
ToJSON AccountSettingsForm Source #
Instance details Defined in Model Methods toJSON :: AccountSettingsForm -> Value # toEncoding :: AccountSettingsForm -> Encoding # toJSONList :: [AccountSettingsForm] -> Value # toEncodingList :: [AccountSettingsForm] -> Encoding #
Generic AccountSettingsForm Source #
Instance details Defined in Model Associated Types type Rep AccountSettingsForm :: Type -> Type # Methods from :: AccountSettingsForm -> Rep AccountSettingsForm x # to :: Rep AccountSettingsForm x -> AccountSettingsForm #
Read AccountSettingsForm Source #
Instance details Defined in Model Methods readsPrec :: Int -> ReadS AccountSettingsForm # readList :: ReadS [AccountSettingsForm] # readPrec :: ReadPrec AccountSettingsForm # readListPrec :: ReadPrec [AccountSettingsForm] #
Show AccountSettingsForm Source #
Instance details Defined in Model Methods showsPrec :: Int -> AccountSettingsForm -> ShowS # show :: AccountSettingsForm -> String # showList :: [AccountSettingsForm] -> ShowS #
Eq AccountSettingsForm Source #
Instance details Defined in Model Methods (==) :: AccountSettingsForm -> AccountSettingsForm -> Bool # (/=) :: AccountSettingsForm -> AccountSettingsForm -> Bool #
type Rep AccountSettingsForm Source #
Instance details Defined in Model type Rep AccountSettingsForm = D1 ('MetaData "AccountSettingsForm" "Model" "espial-0.0.16-9EWnUeGfZXE222WrGUgYOv" 'False) (C1 ('MetaCons "AccountSettingsForm" 'PrefixI 'True) (S1 ('MetaSel ('Just "_privateDefault") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool) :: (S1 ('MetaSel ('Just "_archiveDefault") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool) :: S1 ('MetaSel ('Just "_privacyLock") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool))))

toAccountSettingsForm :: User -> AccountSettingsForm Source #

updateUserFromAccountSettingsForm :: Key User -> AccountSettingsForm -> DB () Source #

data BookmarkForm Source #

Constructors

BookmarkForm
Fields _url :: Text _title :: Maybe Text _description :: Maybe Textarea _tags :: Maybe Text _private :: Maybe Bool _toread :: Maybe Bool _bid :: Maybe Int64 _slug :: Maybe BmSlug _selected :: Maybe Bool _time :: Maybe UTCTimeStr _archiveUrl :: Maybe Text

Instances

Instances details

FromJSON BookmarkForm Source #
Instance details Defined in Model Methods parseJSON :: Value -> Parser BookmarkForm # parseJSONList :: Value -> Parser [BookmarkForm] #
ToJSON BookmarkForm Source #
Instance details Defined in Model Methods toJSON :: BookmarkForm -> Value # toEncoding :: BookmarkForm -> Encoding # toJSONList :: [BookmarkForm] -> Value # toEncodingList :: [BookmarkForm] -> Encoding #
Generic BookmarkForm Source #
Instance details Defined in Model Associated Types type Rep BookmarkForm :: Type -> Type # Methods from :: BookmarkForm -> Rep BookmarkForm x # to :: Rep BookmarkForm x -> BookmarkForm #
Read BookmarkForm Source #
Instance details Defined in Model Methods readsPrec :: Int -> ReadS BookmarkForm # readList :: ReadS [BookmarkForm] # readPrec :: ReadPrec BookmarkForm # readListPrec :: ReadPrec [BookmarkForm] #
Show BookmarkForm Source #
Instance details Defined in Model Methods showsPrec :: Int -> BookmarkForm -> ShowS # show :: BookmarkForm -> String # showList :: [BookmarkForm] -> ShowS #
Eq BookmarkForm Source #
Instance details Defined in Model Methods (==) :: BookmarkForm -> BookmarkForm -> Bool # (/=) :: BookmarkForm -> BookmarkForm -> Bool #
type Rep BookmarkForm Source #
Instance details Defined in Model type Rep BookmarkForm = D1 ('MetaData "BookmarkForm" "Model" "espial-0.0.16-9EWnUeGfZXE222WrGUgYOv" 'False) (C1 ('MetaCons "BookmarkForm" 'PrefixI 'True) (((S1 ('MetaSel ('Just "_url") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :: S1 ('MetaSel ('Just "_title") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Text))) :: (S1 ('MetaSel ('Just "_description") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Textarea)) :: (S1 ('MetaSel ('Just "_tags") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Text)) :: S1 ('MetaSel ('Just "_private") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Bool))))) :: ((S1 ('MetaSel ('Just "_toread") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Bool)) :: (S1 ('MetaSel ('Just "_bid") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Int64)) :: S1 ('MetaSel ('Just "_slug") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe BmSlug)))) :: (S1 ('MetaSel ('Just "_selected") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Bool)) :: (S1 ('MetaSel ('Just "_time") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe UTCTimeStr)) :: S1 ('MetaSel ('Just "_archiveUrl") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Text)))))))

gDefaultFormOptions :: Options Source #

toBookmarkFormList :: [(Entity Bookmark, Maybe Text)] -> [BookmarkForm] Source #

_toBookmarkForm :: (Entity Bookmark, [Entity BookmarkTag]) -> BookmarkForm Source #

_toBookmarkForm' :: (Entity Bookmark, Maybe Text) -> BookmarkForm Source #

_toBookmark :: UserId -> BookmarkForm -> IO Bookmark Source #

fetchBookmarkByUrl :: Key User -> Maybe Text -> DB (Maybe (Entity Bookmark, [Entity BookmarkTag])) Source #

data UpsertResult a Source #

Constructors

Created a
Updated a
Failed String

Instances

Instances details

Functor UpsertResult Source #
Instance details Defined in Model Methods fmap :: (a -> b) -> UpsertResult a -> UpsertResult b # (<$) :: a -> UpsertResult b -> UpsertResult a #
Show a => Show (UpsertResult a) Source #
Instance details Defined in Model Methods showsPrec :: Int -> UpsertResult a -> ShowS # show :: UpsertResult a -> String # showList :: [UpsertResult a] -> ShowS #
Eq a => Eq (UpsertResult a) Source #
Instance details Defined in Model Methods (==) :: UpsertResult a -> UpsertResult a -> Bool # (/=) :: UpsertResult a -> UpsertResult a -> Bool #

maybeUpsertResult :: UpsertResult a -> Maybe a Source #

upsertBookmark :: Key User -> Maybe (Key Bookmark) -> Bookmark -> [Text] -> DB (UpsertResult (Key Bookmark)) Source #

updateBookmarkArchiveUrl :: Key User -> Key Bookmark -> Maybe Text -> DB () Source #

upsertNote :: Key User -> Maybe (Key Note) -> Note -> DB (UpsertResult (Key Note)) Source #

FileBookmarks

data FileBookmark Source #

Constructors

FileBookmark
Fields fileBookmarkHref :: !Text fileBookmarkDescription :: !Text fileBookmarkExtended :: !Text fileBookmarkTime :: !UTCTime fileBookmarkShared :: !Bool fileBookmarkToRead :: !Bool fileBookmarkSelected :: !(Maybe Bool) fileBookmarkArchiveHref :: !(Maybe Text) fileBookmarkTags :: !Text

Instances

Instances details

FromJSON FileBookmark Source #
Instance details Defined in Model Methods parseJSON :: Value -> Parser FileBookmark # parseJSONList :: Value -> Parser [FileBookmark] #
ToJSON FileBookmark Source #
Instance details Defined in Model Methods toJSON :: FileBookmark -> Value # toEncoding :: FileBookmark -> Encoding # toJSONList :: [FileBookmark] -> Value # toEncodingList :: [FileBookmark] -> Encoding #
Show FileBookmark Source #
Instance details Defined in Model Methods showsPrec :: Int -> FileBookmark -> ShowS # show :: FileBookmark -> String # showList :: [FileBookmark] -> ShowS #
Eq FileBookmark Source #
Instance details Defined in Model Methods (==) :: FileBookmark -> FileBookmark -> Bool # (/=) :: FileBookmark -> FileBookmark -> Bool #
Ord FileBookmark Source #
Instance details Defined in Model Methods compare :: FileBookmark -> FileBookmark -> Ordering # (<) :: FileBookmark -> FileBookmark -> Bool # (<=) :: FileBookmark -> FileBookmark -> Bool # (>) :: FileBookmark -> FileBookmark -> Bool # (>=) :: FileBookmark -> FileBookmark -> Bool # max :: FileBookmark -> FileBookmark -> FileBookmark # min :: FileBookmark -> FileBookmark -> FileBookmark #

boolFromYesNo :: Text -> Bool Source #

boolToYesNo :: Bool -> Text Source #

FileNotes

data FileNote Source #

Constructors

FileNote
Fields fileNoteId :: !Text fileNoteTitle :: !Text fileNoteText :: !Text fileNoteLength :: !Int fileNoteCreatedAt :: !UTCTime fileNoteUpdatedAt :: !UTCTime

Instances

Instances details

FromJSON FileNote Source #
Instance details Defined in Model Methods parseJSON :: Value -> Parser FileNote # parseJSONList :: Value -> Parser [FileNote] #
ToJSON FileNote Source #
Instance details Defined in Model Methods toJSON :: FileNote -> Value # toEncoding :: FileNote -> Encoding # toJSONList :: [FileNote] -> Value # toEncodingList :: [FileNote] -> Encoding #
Show FileNote Source #
Instance details Defined in Model Methods showsPrec :: Int -> FileNote -> ShowS # show :: FileNote -> String # showList :: [FileNote] -> ShowS #
Eq FileNote Source #
Instance details Defined in Model Methods (==) :: FileNote -> FileNote -> Bool # (/=) :: FileNote -> FileNote -> Bool #
Ord FileNote Source #
Instance details Defined in Model Methods compare :: FileNote -> FileNote -> Ordering # (<) :: FileNote -> FileNote -> Bool # (<=) :: FileNote -> FileNote -> Bool # (>) :: FileNote -> FileNote -> Bool # (>=) :: FileNote -> FileNote -> Bool # max :: FileNote -> FileNote -> FileNote # min :: FileNote -> FileNote -> FileNote #

readFileNoteTime :: MonadFail m => String -> m UTCTime Source #

showFileNoteTime :: UTCTime -> String Source #