summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSam Truzjan <pxqr.sta@gmail.com>2013-09-29 07:51:08 +0400
committerSam Truzjan <pxqr.sta@gmail.com>2013-09-29 07:51:08 +0400
commite1810a1318da49db2e25cdcc478b41dbe938928f (patch)
treedc43a0bc10d619b29049a6fdaffc7e90a1999faa
parent9218d2a0e82ba3a086c31c780174d7f1c3c4a7c8 (diff)
Add module header
-rw-r--r--src/Data/BEncode/BDict.hs12
1 files changed, 11 insertions, 1 deletions
diff --git a/src/Data/BEncode/BDict.hs b/src/Data/BEncode/BDict.hs
index 3bfcd77..2884851 100644
--- a/src/Data/BEncode/BDict.hs
+++ b/src/Data/BEncode/BDict.hs
@@ -1,3 +1,13 @@
1-- |
2-- Copyright : (c) Sam Truzjan 2013
3-- License : BSD3
4-- Maintainer : pxqr.sta@gmail.com
5-- Stability : stable
6-- Portability : portable
7--
8-- This module defines a simple key value list which both faster and
9-- more suitable for bencode dictionaries.
10--
1module Data.BEncode.BDict 11module Data.BEncode.BDict
2 ( BKey 12 ( BKey
3 , BDictMap (..) 13 , BDictMap (..)
@@ -101,4 +111,4 @@ fromAscList ((k, v) : xs) = Cons k v (fromAscList xs)
101 111
102toAscList :: BDictMap a -> [(BKey, a)] 112toAscList :: BDictMap a -> [(BKey, a)]
103toAscList Nil = [] 113toAscList Nil = []
104toAscList (Cons k v xs) = (k, v) : toAscList xs \ No newline at end of file 114toAscList (Cons k v xs) = (k, v) : toAscList xs