module Buffet.Parse.Menu
  ( Menu(..)
  , defaultMenu
  ) where

import qualified Buffet.Ir.Ir as Ir
import qualified Data.Map.Strict as Map
import qualified Data.Text as T
import Prelude (Eq, FilePath, Ord, Show)

data Menu =
  Menu
    { Menu -> Text
copyDummySourcePath :: T.Text
    , Menu -> Map Option FilePath
optionToDish :: Map.Map Ir.Option FilePath
    }
  deriving (Menu -> Menu -> Bool
(Menu -> Menu -> Bool) -> (Menu -> Menu -> Bool) -> Eq Menu
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Menu -> Menu -> Bool
$c/= :: Menu -> Menu -> Bool
== :: Menu -> Menu -> Bool
$c== :: Menu -> Menu -> Bool
Eq, Eq Menu
Eq Menu
-> (Menu -> Menu -> Ordering)
-> (Menu -> Menu -> Bool)
-> (Menu -> Menu -> Bool)
-> (Menu -> Menu -> Bool)
-> (Menu -> Menu -> Bool)
-> (Menu -> Menu -> Menu)
-> (Menu -> Menu -> Menu)
-> Ord Menu
Menu -> Menu -> Bool
Menu -> Menu -> Ordering
Menu -> Menu -> Menu
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: Menu -> Menu -> Menu
$cmin :: Menu -> Menu -> Menu
max :: Menu -> Menu -> Menu
$cmax :: Menu -> Menu -> Menu
>= :: Menu -> Menu -> Bool
$c>= :: Menu -> Menu -> Bool
> :: Menu -> Menu -> Bool
$c> :: Menu -> Menu -> Bool
<= :: Menu -> Menu -> Bool
$c<= :: Menu -> Menu -> Bool
< :: Menu -> Menu -> Bool
$c< :: Menu -> Menu -> Bool
compare :: Menu -> Menu -> Ordering
$ccompare :: Menu -> Menu -> Ordering
$cp1Ord :: Eq Menu
Ord, Int -> Menu -> ShowS
[Menu] -> ShowS
Menu -> FilePath
(Int -> Menu -> ShowS)
-> (Menu -> FilePath) -> ([Menu] -> ShowS) -> Show Menu
forall a.
(Int -> a -> ShowS) -> (a -> FilePath) -> ([a] -> ShowS) -> Show a
showList :: [Menu] -> ShowS
$cshowList :: [Menu] -> ShowS
show :: Menu -> FilePath
$cshow :: Menu -> FilePath
showsPrec :: Int -> Menu -> ShowS
$cshowsPrec :: Int -> Menu -> ShowS
Show)

defaultMenu :: Menu
defaultMenu :: Menu
defaultMenu =
  Menu :: Text -> Map Option FilePath -> Menu
Menu {copyDummySourcePath :: Text
copyDummySourcePath = FilePath -> Text
T.pack FilePath
"/var/empty", optionToDish :: Map Option FilePath
optionToDish = Map Option FilePath
forall k a. Map k a
Map.empty}