module HSP.Google.Analytics
( UACCT(..)
, analytics
, addAnalytics
, analyticsAsync
) where
import Data.Generics (Data, Typeable)
import Data.Text.Lazy (Text)
import HSP
import Prelude hiding (head)
newtype UACCT = UACCT String
deriving (Read, Show, Eq, Ord, Typeable, Data)
analyticsAsync :: (XMLGenerator m, StringType m ~ Text) =>
UACCT
-> GenXML m
analyticsAsync (UACCT uacct) =
<script type="text/javascript">
var _gaq = _gaq || [];
_gaq.push(['_setAccount', '<% uacct %>']);
_gaq.push(['_trackPageview']);
(function() {
var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.googleanalytics.com/ga.js';
var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
})();
</script>
analytics :: (XMLGenerator m, StringType m ~ Text) => UACCT -> GenXMLList m
analytics (UACCT uacct) =
do a <- <script type="text/javascript">
var gaJsHost = (("https:" == document.location.protocol) ? "https://ssl." : "http://www.");
document.write(unescape("%3Cscript src='" + gaJsHost + "google-analytics.com/ga.js' type='text/javascript'%3E%3C/script%3E"));
</script>
b <- <script type="text/javascript">
var pageTracker = _gat._getTracker("<% uacct %>");
pageTracker._initData();
pageTracker._trackPageview();
</script>
return [a,b]
addAnalytics :: ( AppendChild m XML
, EmbedAsChild m XML
, EmbedAsAttr m Attribute
, XMLGenerator m
, XMLType m ~ XML
, StringType m ~ Text
)
=> UACCT
-> XMLGenT m XML
-> GenXML m
addAnalytics uacct pg =
do page <- pg
a <- analytics uacct
case page of
<html hattrs><[ head, body ]></html> ->
<html hattrs>
<% head %>
<% body <: (a :: [XML]) %>
</html>
o -> error ("Failed to add analytics." ++ show o)