Safe Haskell | Safe-Inferred |
---|---|
Language | Haskell2010 |
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 {}
- 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 {}
- newtype UserNameP = UserNameP {
- unUserNameP :: Text
- newtype TagsP = TagsP {}
- data SharedP
- data FilterP
- 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
- 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 {}
- toAccountSettingsForm :: User -> AccountSettingsForm
- updateUserFromAccountSettingsForm :: Key User -> AccountSettingsForm -> DB ()
- data BookmarkForm = BookmarkForm {}
- 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
- 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 {}
- 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
User | |
|
Instances
Bookmark | |
|
Instances
type BookmarkId = Key Bookmark Source #
data BookmarkTag Source #
BookmarkTag | |
|
Instances
type BookmarkTagId = Key BookmarkTag Source #
Note | |
|
Instances
newtype UTCTimeStr Source #
Instances
newtype UnreadOnly Source #
Instances
Read UnreadOnly Source # | |
Defined in Model readsPrec :: Int -> ReadS UnreadOnly # readList :: ReadS [UnreadOnly] # readPrec :: ReadPrec UnreadOnly # readListPrec :: ReadPrec [UnreadOnly] # | |
Show UnreadOnly Source # | |
Defined in Model showsPrec :: Int -> UnreadOnly -> ShowS # show :: UnreadOnly -> String # showList :: [UnreadOnly] -> ShowS # | |
Eq UnreadOnly Source # | |
Defined in Model (==) :: UnreadOnly -> UnreadOnly -> Bool # (/=) :: UnreadOnly -> UnreadOnly -> Bool # |
dumpMigration :: DB () Source #
runMigrations :: DB () Source #
toMigration :: [Text] -> Migration Source #
sqliteGroupConcat :: PersistField a => SqlExpr (Value a) -> SqlExpr (Value a) -> SqlExpr (Value Text) Source #
bookmarksTagsQuery :: Key User -> SharedP -> FilterP -> [Tag] -> Maybe Text -> Limit -> Page -> DB (Int, [(Entity Bookmark, Maybe Text)]) Source #
parseTimeText :: (ParseTime t, MonadFail m, Alternative m) => Text -> m t 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 #
Instances
FromJSON FFBookmarkNode Source # | |
Defined in Model parseJSON :: Value -> Parser FFBookmarkNode # parseJSONList :: Value -> Parser [FFBookmarkNode] # | |
Show FFBookmarkNode Source # | |
Defined in Model showsPrec :: Int -> FFBookmarkNode -> ShowS # show :: FFBookmarkNode -> String # showList :: [FFBookmarkNode] -> ShowS # | |
Eq FFBookmarkNode Source # | |
Defined in Model (==) :: FFBookmarkNode -> FFBookmarkNode -> Bool # (/=) :: FFBookmarkNode -> FFBookmarkNode -> Bool # | |
Ord FFBookmarkNode Source # | |
Defined in Model 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 #
readFileBookmarks :: MonadIO m => FilePath -> m (Either String [FileBookmark]) Source #
readFFBookmarks :: MonadIO m => FilePath -> m (Either String FFBookmarkNode) Source #
getFileBookmarks :: Key User -> DB [FileBookmark] Source #
data TagCloudMode Source #
TagCloudModeTop Bool Int | |
TagCloudModeLowerBound Bool Int | |
TagCloudModeRelated Bool [Tag] | |
TagCloudModeNone |
Instances
isExpanded :: TagCloudMode -> Bool Source #
data AccountSettingsForm Source #
Instances
updateUserFromAccountSettingsForm :: Key User -> AccountSettingsForm -> DB () Source #
data BookmarkForm Source #
Instances
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 #
Instances
Functor UpsertResult Source # | |
Defined in Model fmap :: (a -> b) -> UpsertResult a -> UpsertResult b # (<$) :: a -> UpsertResult b -> UpsertResult a # | |
Show a => Show (UpsertResult a) Source # | |
Defined in Model showsPrec :: Int -> UpsertResult a -> ShowS # show :: UpsertResult a -> String # showList :: [UpsertResult a] -> ShowS # | |
Eq a => Eq (UpsertResult a) Source # | |
Defined in Model (==) :: 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 #
FileBookmarks
data FileBookmark Source #
FileBookmark | |
|
Instances
boolFromYesNo :: Text -> Bool Source #
boolToYesNo :: Bool -> Text Source #
FileNotes
FileNote | |
|
showFileNoteTime :: UTCTime -> String Source #