2015-07-21 01:14:21 +02:00
|
|
|
module Handler.Barcode where
|
|
|
|
|
|
|
|
import Import
|
|
|
|
import Handler.Common
|
|
|
|
import qualified Data.Text as T
|
|
|
|
import Text.Blaze.Internal
|
|
|
|
import Text.Shakespeare.Text
|
|
|
|
|
2015-07-21 01:42:52 +02:00
|
|
|
getHomeBarcodeR :: Handler Html
|
|
|
|
getHomeBarcodeR = return mempty
|
2015-07-21 01:28:05 +02:00
|
|
|
|
2015-07-21 01:42:52 +02:00
|
|
|
getSelectBarcodeR :: UserId -> Handler Html
|
|
|
|
getSelectBarcodeR uId = return mempty
|