getSupplierActionsR :: SupplierId -> Handler Html
getSupplierActionsR sId = do
  mSup <- runDB $ get sId
  case mSup of
    Just sup ->
      defaultLayout $
        $(widgetFile "supplierActions")
    Nothing -> do
      setMessageI MsgSupplierUnknown
      redirect SupplierR
getSupplierActionsR :: SupplierId -> Handler Html
getSupplierActionsR sId = do
  mSup <- runDB $ get sId
  case mSup of
    Just sup ->
      defaultLayout $
        $(widgetFile "supplierActions")
    Nothing -> do
      setMessageI MsgSupplierUnknown
      redirect SupplierR
getSupplierActionsR sId = do
  mSup <- runDB $ get sId
  case mSup of
    Just sup ->
      defaultLayout $
        $(widgetFile "supplierActions")
    Nothing -> do
      setMessageI MsgSupplierUnknown
      redirect SupplierR