preparing for release
[maximus:gulcii.git] / src / Meta.hs
1 {-
2     gulcii -- graphical untyped lambda calculus interpreter
3     Copyright (C) 2011, 2013  Claude Heiland-Allen
4
5     This program is free software; you can redistribute it and/or modify
6     it under the terms of the GNU General Public License as published by
7     the Free Software Foundation; either version 2 of the License, or
8     (at your option) any later version.
9
10     This program is distributed in the hope that it will be useful,
11     but WITHOUT ANY WARRANTY; without even the implied warranty of
12     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13     GNU General Public License for more details.
14
15     You should have received a copy of the GNU General Public License along
16     with this program; if not, write to the Free Software Foundation, Inc.,
17     51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
18 -}
19
20 module Meta (Meta(..), parse) where
21
22 import Control.Applicative((<|>), (<$), (<*>))
23
24 import Parse
25
26 data Meta = Quit | Clear | Browse | Load String
27   deriving (Read, Show, Eq, Ord)
28
29 parse :: Parser String Meta
30 parse =  (Quit   <$ sym "quit")
31      <|> (Clear  <$ sym "clear")
32      <|> (Browse <$ sym "browse")
33      <|> (Load   <$ sym "load" <*> name)