okay should be ready

Author: athanclark

quack.cabal

@@ -19,6 +19,7 @@ Library
                       , attoparsec
                       , aeson
                       , text
+                      , http-types
 
 Source-Repository head
   Type:                 git

src/Data/Uri/Quack.hs

@@ -6,6 +6,7 @@
 module Data.Uri.Quack
   ( Parser
   , runParser
+  , decodeUtf8Query
   , ParserError (..)
   , -- * Combining
     unlabeled
@@ -21,15 +22,18 @@ module Data.Uri.Quack
 import qualified Data.Attoparsec.Text as Atto  (Parser, parseOnly)
 import qualified Data.Aeson           as Aeson (FromJSON, eitherDecode)
 
-import Data.Text       as T
-import Data.Text.Lazy as LT
-import Data.Text.Lazy.Encoding as LT
+import qualified Data.Text               as T
+import qualified Data.Text.Encoding      as T
+import qualified Data.Text.Lazy          as LT
+import qualified Data.Text.Lazy.Encoding as LT
 import Data.Functor.Identity
 import Data.String (IsString (fromString))
 import Control.Applicative
 import Control.Monad.State
 import Control.Monad.Except
 
+import Network.HTTP.Types.URI (Query)
+
 
 
 data ParserState = ParserState
@@ -43,6 +47,10 @@ initParserState xs = ParserState
   }
 
 
+decodeUtf8Query :: Query -> [(T.Text, Maybe T.Text)]
+decodeUtf8Query = map (\(l,r) -> (T.decodeUtf8 l, T.decodeUtf8 <$> r))
+
+
 data ParserError
   = NoParse String
   deriving (Show, Eq)
@@ -96,11 +104,15 @@ instance Alternative Parser where
         pure []
 
 -- | Parse /only/ the label, disregarding any @=@ value;
--- .
+--
 -- > unlabeled (attoparsec double)
--- . would parse something like
+--
+-- would parse something like
+--
 -- > "/foo?1234"
--- . /or/
+--
+-- /or/
+--
 -- > "/foo?1234=asdf"
 unlabeled :: PieceParser a -> Parser a
 unlabeled (PieceParser f) = Parser $ do
@@ -118,9 +130,11 @@ unlabeled (PieceParser f) = Parser $ do
 
 -- | Parse with a label, but throw the parse result of the
 --   label away;
--- .
+--
 -- > "foo" .= attoparsec double
--- . would parse something like
+--
+-- would parse something like
+--
 -- > "/foo?foo=1234"
 (.=) :: PieceParser a -> PieceParser b -> Parser b
 (PieceParser l) .= (PieceParser f) = Parser $ do
@@ -143,10 +157,12 @@ unlabeled (PieceParser f) = Parser $ do
 
 
 -- | @liftM2@ for parse results /between/ @=@, for instance:
--- .
+--
 -- > overEquals (,) (attoparsec $ double <* endOfInput)
 -- >                (attoparsec $ double <* endOfInput)
--- . would parse something like
+--
+-- would parse something like
+--
 -- > "/foo?1234=1234"
 overEquals :: (a -> b -> c) -> PieceParser a -> PieceParser b -> Parser c
 overEquals f (PieceParser l) (PieceParser r) = Parser $ do

src/highlight.js

@@ -0,0 +1,27 @@
+
+var highlight = function (on) {
+	return function () {
+		var links = document.getElementsByTagName('a');
+		for (var i = 0; i < links.length; i++) {
+			var that = links[i];
+
+			if (this.href != that.href) {
+				continue;
+			}
+
+			if (on) {
+				that.classList.add("hover-highlight");
+			} else {
+				that.classList.remove("hover-highlight");
+			}
+		}
+	}
+};
+
+window.onload = function () {
+	var links = document.getElementsByTagName('a');
+	for (var i = 0; i < links.length; i++) {
+		links[i].onmouseover = highlight(true);
+		links[i].onmouseout = highlight(false);
+	}
+};

src/style.css

@@ -0,0 +1,55 @@
+body {
+	background-color: #fdf6e3;
+}
+
+.hs-identifier {
+	color: #073642;
+}
+
+.hs-identifier.hs-var {
+}
+
+.hs-identifier.hs-type {
+	color: #5f5faf;
+}
+
+.hs-keyword {
+	color: #af005f;
+}
+
+.hs-string, .hs-char {
+	color: #cb4b16;
+}
+
+.hs-number {
+	color: #268bd2;
+}
+
+.hs-operator {
+	color: #d33682;
+}
+
+.hs-glyph, .hs-special {
+	color: #dc322f;
+}
+
+.hs-comment {
+	color: #8a8a8a;
+}
+
+.hs-pragma {
+	color: #2aa198;
+}
+
+.hs-cpp {
+	color: #859900;
+}
+
+a:link, a:visited {
+	text-decoration: none;
+	border-bottom: 1px solid #eee8d5;
+}
+
+a:hover, a.hover-highlight {
+	background-color: #eee8d5;
+}