more work on Hindley-Milner

[fp.git] / src / Lambda / Parser / Fancy.hs

diff --git a/src/Lambda/Parser/Fancy.hs b/src/Lambda/Parser/Fancy.hs
index 6e87da1..9a1deb3 100644 (file)
--- a/src/Lambda/Parser/Fancy.hs
+++ b/src/Lambda/Parser/Fancy.hs
@@ -1,7 +1,4 @@
-{-# OPTIONS_GHC
-    -fno-warn-unused-do-bind
-    -fno-warn-orphans
-#-}
+{-# OPTIONS_GHC -fno-warn-unused-do-bind -fno-warn-orphans #-}

 {-# LANGUAGE PatternSynonyms #-}
 
 -- |
 {-# LANGUAGE PatternSynonyms #-}
 
 -- |


@@ -12,11 +9,18 @@
 -- Maintainer  :  tomik.musil@gmail.com
 -- Stability   :  experimental
 --
 -- Maintainer  :  tomik.musil@gmail.com
 -- Stability   :  experimental
 --

--- Parser for λ-terms. '.' in λ implies brackets to the end of the context.
+-- Parser for λ-terms. \'.\' in λ implies brackets to the end of the context.

 
 -- TODO: proper documentation
 
 
 -- TODO: proper documentation
 

-module Lambda.Parser.Fancy where
+module Lambda.Parser.Fancy 
+  (
+  -- * Main parser
+    tRead
+  , parseTerm
+  -- * Auxiliary parsers
+  , parseVar
+  )  where

 
 import Data.Text as T hiding (map)
 import Data.Attoparsec.Text
 
 import Data.Text as T hiding (map)
 import Data.Attoparsec.Text


@@ -24,6 +28,10 @@ import Control.Applicative
 
 import Lambda.Term
 
 
 import Lambda.Term
 

+-- $setup
+-- >>> import Test.QuickCheck
+-- >>> import Test.Term
+

 -- | 
 -- >>> print $ Lambda "x" (Var "x")
 -- (λx.x)
 -- | 
 -- >>> print $ Lambda "x" (Var "x")
 -- (λx.x)