https://github.com/yairchu/yesod-admin-crud

Admin CRUD interface for the yesod web framework
https://github.com/yairchu/yesod-admin-crud

Last synced: 3 months ago
JSON representation

Admin CRUD interface for the yesod web framework

• Host: GitHub
• URL: https://github.com/yairchu/yesod-admin-crud
• Owner: yairchu
• License: bsd-3-clause
• Created: 2011-10-22T23:55:36.000Z (about 13 years ago)
• Default Branch: master
• Last Pushed: 2011-11-02T16:28:41.000Z (about 13 years ago)
• Last Synced: 2023-04-19T00:45:12.681Z (over 1 year ago)
• Language: Haskell
• Homepage:
• Size: 98.6 KB
• Stars: 10
• Watchers: 3
• Forks: 3
• Open Issues: 0
• Metadata Files:
  • Readme: README.markdown
  • License: LICENSE

Awesome Lists containing this project

README

        
Admin CRUD "sub-site" for the Yesod web framework.

CRUD means Create, Read, Update, Delete.

This module provides access to the site's database for an admin user.

## Setting up

Instructions of how to add the sub-site to Yesod's scaffolded website:

### Add routes

Add to `config/routes`

    /admin  AdminR  Admin  getAdmin

### Create separate module for "foundation type".

The site's foundation type needs to be moved out of `Foundation.hs` as it will be needed by `Model.hs`.

Not moving the type to separate module will cause an import cycle.

### Create the YesodAdmin instance

In `Model.hs`, change

    share [mkPersist sqlSettings, mkMigrate "migrateAll"] $(persistFile "config/models")

to

    share [mkPersist sqlSettings, mkMigrate "migrateAll", mkYesodAdmin ''SoundRadix] $(persistFile "config/models")

(Added `, mkYesodAdmin ''SoundRadix`)

### Create YesodAdminUser instance

In `Foundation.hs`, add

    instance YesodAdminUser SoundRadix where

        isAdminUser = return True

* You will probably want to change the code of `isAdminUser` to determine whether the logged-in user is an administrator user or not.

* `YesodAdminUser` is exported by `Yesod.Admin.User`.

### Fix imports

The changes describe above require several imports and language extensions. These should be simple to solve.

## TODO

* Make it look nicer.

* Selecting which part of the table to see if it has many rows.