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:28:05 +02:00
|
|
|
postHomeBarcodeR :: Handler Html
|
|
|
|
|
postHomeBarcodeR = return mempty
|
|
|
|
|
|
|
|
|
|
postSelectBarcodeR :: UserId -> Handler Html
|
|
|
|
|
postSelectBarcodeR uId = return mempty
|
