getSupplierR :: Handler Html
getSupplierR = do
  sups <- runDB $ selectList [] [Asc SupplierIdent]
  defaultLayout $ do
    setTitleI MsgSuppliers
    $(widgetFile "supplier")
getSupplierR :: Handler Html
getSupplierR = do
  sups <- runDB $ selectList [] [Asc SupplierIdent]
  defaultLayout $ do
    setTitleI MsgSuppliers
    $(widgetFile "supplier")
getSupplierR = do
  sups <- runDB $ selectList [] [Asc SupplierIdent]
  defaultLayout $ do
    setTitleI MsgSuppliers
    $(widgetFile "supplier")