diff options
| author | Justin Ethier <justin.ethier@gmail.com> | 2014-08-07 22:11:26 -0400 |
|---|---|---|
| committer | Justin Ethier <justin.ethier@gmail.com> | 2014-08-07 22:11:26 -0400 |
| commit | bc6ea0872a494acdd5a5ec528f00a6371178fd04 (patch) | |
| tree | 402cf05c9c43fb3afcdaa8b605f9ff7fd7077925 | |
| parent | 86fa70c4979cf183a243ec1524f5efdbe37af590 (diff) | |
Added haddockv3.18
| -rw-r--r-- | hs-src/Language/Scheme/Primitives.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/hs-src/Language/Scheme/Primitives.hs b/hs-src/Language/Scheme/Primitives.hs index 4e517438..13b42753 100644 --- a/hs-src/Language/Scheme/Primitives.hs +++ b/hs-src/Language/Scheme/Primitives.hs @@ -71,7 +71,6 @@ module Language.Scheme.Primitives ( , stringCopy , symbol2String , string2Symbol - --data Unpacker = forall a . Eq a => AnyUnpacker (LispVal -> ThrowsError a) -- ** Character , charCIBoolBinop @@ -1888,7 +1887,7 @@ isSymbolEq (Atom a : Atom b : bs) isSymbolEq [Atom _] = return $ Bool True isSymbolEq _ = return $ Bool False --- Utility functions +-- |Utility type for unpackEquals data Unpacker = forall a . Eq a => AnyUnpacker (LispVal -> ThrowsError a) -- |Determine if two lispval's are equal |