1 {-# LANGUAGE OverloadedStrings #-}
    2 module View.VolumeAccess
    3   ( volumeAccessTitle
    4   , volumeAccessPresetTitle
    5   -- , htmlVolumeAccessForm
    6   ) where
    7 
    8 import qualified Data.ByteString.Char8 as BSC
    9 import Data.Monoid ((<>))
   10 import qualified Data.Text as T
   11 
   12 import qualified Store.Config as C
   13 import Service.Messages
   14 -- import Action
   15 -- import Model.Party
   16 import Model.Permission
   17 -- import Model.Volume
   18 -- import Model.VolumeAccess
   19 -- import Controller.Paths
   20 -- import View.Form
   21 
   22 -- import {-# SOURCE #-} Controller.VolumeAccess
   23 
   24 volumeAccessTitle :: Permission -> Messages -> T.Text
   25 volumeAccessTitle perm = getMessage $ C.Path ["access", "edit", BSC.pack (show perm), "title"]
   26 
   27 volumeAccessPresetTitle :: Bool -> Messages -> T.Text
   28 volumeAccessPresetTitle shared = getMessage $ C.Path ["access", "preset", "title" <> BSC.pack (show (fromEnum shared))]
   29 
   30 {-
   31 htmlVolumeAccessForm :: VolumeAccess -> RequestContext -> FormHtml f
   32 htmlVolumeAccessForm a@VolumeAccess{ volumeAccessVolume = vol, volumeAccessParty = p } = htmlForm
   33   ("Access to " <> volumeName (volumeRow vol) <> " for " <> partyName (partyRow p))
   34   postVolumeAccess (HTML, (volumeId $ volumeRow vol, VolumeAccessTarget $ partyId $ partyRow p))
   35   (do
   36     field "individual" $ inputEnum True $ Just $ volumeAccessIndividual a
   37     field "children" $ inputEnum True $ Just $ volumeAccessChildren a
   38     field "delete" $ inputCheckbox False)
   39   (const mempty)
   40 -}